gcc/testsuite/gfortran.dg/array_constructor_18.f90

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