gcc/testsuite/gfortran.dg/pr93714_2.f90

   1 ! { dg-do compile }
   2 ! PR 93714
   3 ! Original test case from G. Steinmetz
   4
   5 program test
   6    character((9.)) :: a
   7    character(:), pointer :: b => a
   8 end program
   9
  10 ! { dg-error "Scalar INTEGER expression expected" " " { target *-*-* } 6 }
  11 ! { dg-error "Different types in pointer assignment" " " { target *-*-* } 7 }