This line is a allocatable integer type declaration in a standard module
"
gfortran -ffree-form -O3 -c dvr.f90
In file dvr.f90:8
INTEGER(kind=4), ALLOCATABLE :: glmark(:)
1
Error: Attribute at (1) is not allowed in a TYPE definition
make: *** [dvr.mod] Error 1
"
And so the compiler exits on the error
The partial source for the module.
MODULE DVR
implicit none
! PRIVATE
PUBLIC :: buildgrid, writegrid, creategrid1, creategrid2, ecscreategrid1,
ecscreategrid2
TYPE dvrgrid
INTEGER(kind=4) :: gln, nfe, cess, nnodes, nreal, ncomplex, gnn, fim, lim
INTEGER(kind=4), ALLOCATABLE :: glmark(:)
REAL(kind=8) :: phi
REAL(kind=8), pointer :: fenodes(:), gnodes(:), rnodes(:), wr(:)
COMPLEX(kind=8), pointer :: znodes(:), wz(:)
END TYPE dvrgrid
! INTERFACE buildgrid
! MODULE PROCEDURE creategrid1, creategrid2, ecscreategrid1, ecscreategrid2
END INTERFACE
INTERFACE D1node
MODULE PROCEDURE D1glnode, D1gennode
END INTERFACE
CONTAINS
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
END MODULE DVR
--
Summary: INTEGER type declaration: ALLOCATABLE, compilation error
Product: gcc
Version: 4.0.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: madbosun at gmail dot com
CC: gcc-bugs at gcc dot gnu dot org
GCC host triplet: Intel Opteron
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=20541
