gcc/testsuite/gfortran.dg/nested_array_constructor_3.f90

   1 ! { dg-do run }
   2
   3 ! PR fortran/35846
   4 ! Alternate test that also produced an ICE because of a missing length.
   5
   6 PROGRAM test
   7   IMPLICIT NONE
   8   CHARACTER(LEN=2) :: x
   9
  10   x = 'a'
  11   CALL sub ( (/ TRIM(x), 'a' /) // 'c')
  12 END PROGRAM
  13
  14 SUBROUTINE sub(str)
  15   IMPLICIT NONE
  16   CHARACTER(LEN=*) :: str(2)
  17   WRITE (*,*) str
  18
  19   IF (str(1) /= 'ac' .OR. str(2) /= 'ac') THEN
  20     CALL abort ()
  21   END IF
  22 END SUBROUTINE sub