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
