subroutine test(n) character(len=20), dimension(n) :: string data ( string(i) ,i=1,n ) / & 'A', 'B', 'C', 'D', 'E' / end subroutine
gives currently: data ( string(i) ,i=1,n ) / & 1 Error: iterator end at (1) does not simplify which is unclear, how about something like: ifort: Error: x.f90, line 3: This symbol must be a defined parameter or an argument of an inquiry function that evaluates to a compile-time constant. [N] or NAG f95: Error: Static array STRING cannot have variable bounds -- Summary: Better error message for variable bond of DATA implied do Product: gcc Version: 4.3.0 Status: UNCONFIRMED Keywords: diagnostic Severity: enhancement Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: burnus at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32331