gcc/testsuite/gfortran.dg/no_char_conversion_in_array_constructor.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdec-char-conversions" }
   3
   4 program p
   5    print *, -[integer :: 1, [integer(8) :: '2']] ! { dg-error "Cannot convert" }
   6    print *, -[real :: 1, [real(8) :: '2']]       ! { dg-error "Cannot convert" }
   7    print *, -[complex :: 1, [complex(8) :: '2']] ! { dg-error "Cannot convert" }
   8    print *, [logical :: 1, [logical(8) :: '2']]  ! { dg-error "Cannot convert" }
   9 end
  10