gcc/testsuite/gfortran.fortran-torture/execute/function_module_1.f90

   1 ! This can fail because BB is not resolved correctly.
   2 module M1
   3
   4 INTEGER p
   5
   6 CONTAINS
   7 subroutine AA ()
   8    implicit NONE
   9    p = BB ()
  10  CONTAINS
  11    subroutine AA_1 ()
  12      implicit NONE
  13      integer :: i
  14      i = BB ()
  15    end subroutine
  16
  17    function BB()
  18    integer :: BB
  19      BB = 1
  20    end function
  21 end subroutine
  22
  23 function BB()
  24   implicit NONE
  25   integer :: BB
  26   BB = 2
  27 end function
  28 end module
  29
  30 program P1
  31   USE M1
  32   implicit none
  33   p = 0
  34   call AA ()
  35   if (p /= 1) call abort
  36 end