gcc/testsuite/gfortran.dg/data_array_5.f90

   1 ! { dg-do compile }
   2 ! Tests the fix for PR36371, in which the locus for the errors pointed to
   3 ! the paramter declaration rather than the data statement.
   4 !
   5 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
   6 !
   7 program chkdata
   8   character(len=3), parameter :: mychar(3) = [ "abc", "def", "ghi" ]
   9   integer, parameter :: myint(3) = [1, 2, 3]
  10   integer :: c(2)
  11   character(4) :: i(2)
  12   data c / mychar(1), mychar(3) / ! { dg-error "Incompatible types in DATA" }
  13   data i / myint(3), myint(2) /   ! { dg-error "Incompatible types in DATA" }
  14 end program chkdata