gcc/testsuite/gfortran.dg/proc_decl_22.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 37254: Reject valid PROCEDURE statement with implicit interface
   4 !
   5 ! Original test case by Dominique d'Humieres <dominiq@lps.ens.fr>
   6 ! Modified by Janus Weil <janus@gcc.gnu.org>
   7
   8   real function proc3( arg1 )
   9      integer :: arg1
  10      proc3 = arg1+7
  11   end function proc3
  12
  13 program myProg
  14   PROCEDURE () :: proc3
  15   call proc4( proc3 )
  16
  17 contains
  18
  19   subroutine proc4( arg1 )
  20      PROCEDURE(real) :: arg1
  21      print*, 'the func: ', arg1(0)
  22   end subroutine proc4
  23
  24 end program myProg
  25