gcc/testsuite/gfortran.dg/array_constructor_18.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR32875, in which the character length for the
   3 ! array constructor would get lost in simplification and would lead
   4 ! the error 'Not Implemented: complex character array constructor'.
   5 !
   6 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
   7 !
   8   call foo ((/(S1(i),i=1,3,-1)/)) ! { dg-warning "will be executed zero times" }
   9 CONTAINS
  10   FUNCTION S1(i)
  11     CHARACTER(LEN=1) :: S1
  12     INTEGER :: I
  13     S1="123456789"(i:i)
  14   END FUNCTION S1
  15   subroutine foo (chr)
  16     character(1) :: chr(:)
  17     print *, chr
  18   end subroutine
  19 END