gcc/testsuite/gfortran.dg/dec_char_conversion_in_data_7.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdec" }
   3 !
   4 ! Modified by Mark Eggleston <mark.eggleston@codethink.com>
   5 !
   6 program test
   7   integer(4) :: a
   8   real(4) :: b
   9   complex(4) :: c
  10   logical(4) :: d
  11
  12   data a / 4_'1234' /     ! { dg-error "attempted conversion of CHARACTER\\(4,4\\)" }
  13   data b / 4_'12'   /     ! { dg-error "attempted conversion of CHARACTER\\(2,4\\)" }
  14   data c / 4_'12341234' / ! { dg-error "attempted conversion of CHARACTER\\(8,4\\)" }
  15   data d / 4_'abcd' /     ! { dg-error "attempted conversion of CHARACTER\\(4,4\\)" }
  16 end program
  17