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