gcc/testsuite/gfortran.dg/whole_file_34.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/48788
   4 !
   5 ! Contributed by Zdenek Sojka
   6 !
   7 function foo ()
   8 end function foo
   9   character(4), external :: foo ! { dg-error "Return type mismatch of function" }
  10   character(4) :: x
  11   x = foo ()
  12 END