gcc/testsuite/gfortran.dg/block_9.f08

   1 ! { dg-do compile }
   2 !
   3 ! PR 46849: [OOP] MODULE PROCEDURE resolution does not work in BLOCK or SELECT TYPE
   4 !
   5 ! Contributed by Reinhold Bader <bader@lrz.de>
   6
   7   implicit none
   8
   9   block
  10     call init(fun)
  11   end block
  12
  13 contains
  14
  15   subroutine init(func)
  16     real, external :: func
  17   end subroutine
  18
  19   real function fun()
  20     fun = 1.1
  21   end function
  22
  23 end