gcc/testsuite/gfortran.dg/bind_c_usage_32.f90

   1 ! { dg-do compile }
   2 ! PR 46020 - check for clear error message
   3 ! { dg-options "" }
   4 FUNCTION F_X(A) bind(c,name='F_X') ! { dg-error "must have length 1" }
   5    CHARACTER*(*) F_X
   6 END FUNCTION
   7
   8
   9 FUNCTION F_Y(A) bind(c,name='F_Y') ! { dg-error "must have length 1" }
  10    CHARACTER*(2) F_Y
  11 END FUNCTION
  12
  13