gcc/testsuite/gfortran.dg/whole_file_17.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-pedantic -fwhole-file" }
   3 !
   4 ! PR fortran/30668
   5 !
   6
   7 integer(8) function two()
   8   two = 2
   9 end function two
  10
  11 CHARACTER(len=8) function string()
  12   string = "gfortran"
  13 end function string
  14
  15
  16 program xx
  17   INTEGER :: a
  18   CHARACTER(len=4) :: s, string   ! { dg-error "Character length mismatch" }
  19
  20   a = two()                       ! { dg-error "Return type mismatch" }
  21   s = string()
  22 end program xx