gcc/testsuite/gfortran.dg/implicit_5.f90

   1 ! PR fortran/21729
   2 ! { dg-do compile }
   3 function f1 ()  ! { dg-error "has no IMPLICIT type" "f1" }
   4         implicit none
   5 end function f1
   6 function f2 () result (r2) ! { dg-error "has no IMPLICIT type" "r2" }
   7         implicit none
   8 end function f2
   9 function f3 ()  ! { dg-error "has no IMPLICIT type" "f3" }
  10         implicit none
  11 entry e3 ()     ! { dg-error "has no IMPLICIT type" "e3" }
  12 end function f3
  13 function f4 ()
  14         implicit none
  15         real f4
  16 entry e4 ()     ! { dg-error "has no IMPLICIT type" "e4" }
  17 end function f4
  18 function f5 ()  ! { dg-error "has no IMPLICIT type" "f5" }
  19         implicit none
  20 entry e5 ()
  21         real e5
  22 end function f5