write(6,*) (/(S1(i),i=1,3,-1)/) CONTAINS FUNCTION S1(i) CHARACTER(LEN=1) :: S1 INTEGER :: I S1="123456789"(i:i) END FUNCTION S1 END
-- Summary: Not Implemented: complex character array constructor Product: gcc Version: 4.3.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: jv244 at cam dot ac dot uk http://gcc.gnu.org/bugzilla/show_bug.cgi?id=32875