I will upload a file, type_bound_demoP.f90. When I compile it, I see the
following messages:
type_bound_demoP.f90:187.8:
associate (pt1 => point_1%pt2d_t, pt2 => point_2%pt2d_t)
1
Error: Unclassifiable statement at (1)
type_bound_demoP.f90:188.10:
x_dist = pt1 % Get (X_COORD) - pt2 % Get (X_COORD)
1
Error: Unclassifiable statement at (1)
type_bound_demoP.f90:189.10:
y_dist = pt1 % Get (Y_COORD) - pt2 % Get (Y_COORD)
1
Error: Unclassifiable statement at (1)
type_bound_demoP.f90:191.11:
end associate
1
Error: Expecting END SELECT statement at (1)
type_bound_demoP.f90:216.8:
associate (pt2d => this % pt2d_t)
1
Error: Unclassifiable statement at (1)
type_bound_demoP.f90:217.16:
return_value = pt2d % Get (mold)
1
Error: Alternate RETURN statement at (1) is only allowed within a SUBROUTINE
type_bound_demoP.f90:218.11:
end associate
1
Error: Expecting END SELECT statement at (1)
type_bound_demoP.f90:233.4:
associate (point_2d => this % pt2d_t)
1
Error: Unclassifiable statement at (1)
type_bound_demoP.f90:234.12:
return_value = point_2d % Get ()
1
Error: Alternate RETURN statement at (1) is only allowed within a SUBROUTINE
type_bound_demoP.f90:235.7:
end associate
1
Error: Expecting END FUNCTION statement at (1)
type_bound_demoP.f90:248.6:
associate (point_2d => this % pt2d_t)
1
Error: Unclassifiable statement at (1)
type_bound_demoP.f90:249.21:
call point_2d % Print ()
1
Error: Syntax error in CALL statement at (1)
type_bound_demoP.f90:250.9:
end associate
1
Error: Expecting END SELECT statement at (1)
type_bound_demoP.f90:269.6:
associate (point_2d => this % pt2d_t)
1
Error: Unclassifiable statement at (1)
type_bound_demoP.f90:273.21:
call point_2d % Set (coordinates)
1
Error: Syntax error in CALL statement at (1)
type_bound_demoP.f90:287.9:
end associate
1
Error: Expecting END SELECT statement at (1)
type_bound_demoP.f90:297.29:
use Pt3d_mod, only : pt3d_t
1
Fatal Error: Can't open module file 'pt3d_mod.mod' for reading at (1): No such
file or directory
I am using the following compiler flags:
/usr/gcc-trunk/bin/gfortran $1.f90 -Wall -Wextra -O3 -ffast-math -funroll-loops
-std=f2003 -fno-backslash >&$1.gfortran_trunk
.xyz
This appears to be a problem with the associate statement. According to your
documentation, there is some support for it in the latest version of the
compiler. This will perhaps assist in completing support for it
Norm
Norman S. Clerman
--
Summary: problem with the associate statement
Product: gcc
Version: 4.6.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: clerman at fuse dot net
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45369
