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

   1 ! We were incorrectly mangling procedures in interfaces in modules
   2
   3 module module_interface
   4     interface
   5         subroutine foo ()
   6         end subroutine foo
   7     end interface
   8 contains
   9 subroutine cs
  10 end subroutine
  11
  12 subroutine cproc
  13   interface
  14       subroutine bar ()
  15       end subroutine
  16   end interface
  17   call bar ()
  18   call foo ()
  19   call cs ()
  20 end subroutine
  21 end module
  22
  23 subroutine foo ()
  24 end subroutine
  25
  26 subroutine bar ()
  27 end subroutine
  28
  29 program module_interface_proc
  30   use module_interface
  31   interface
  32       subroutine bar ()
  33       end subroutine
  34   end interface
  35
  36   call cproc ()
  37   call foo ()
  38   call bar ()
  39 end program