gcc/testsuite/gfortran.fortran-torture/execute/pr32140.f90

   1 MODULE TEST
   2 CONTAINS
   3 PURE FUNCTION s2a_3(s1,s2,s3) RESULT(a)
   4     CHARACTER(LEN=*), INTENT(IN)             :: s1, s2, s3
   5     CHARACTER(LEN=4), DIMENSION(3)        :: a
   6
   7   a(1)=s1; a(2)=s2; a(3)=s3
   8 END FUNCTION
   9 END MODULE
  10
  11 USE TEST
  12 character(len=12) :: line
  13 write(line,'(3A4)') s2a_3("a","bb","ccc")
  14 IF (line.NE."a   bb  ccc") CALL ABORT()
  15 END
  16