gcc/testsuite/gfortran.dg/contained_1.f90

   1 ! PR15986
   2 ! Siblings may be used as actual arguments, in which case they look like
   3 ! variables during parsing.  Also checks that actual variables aren't replaced
   4 ! by siblings with the same name
   5 ! { dg-do run }
   6 module contained_1_mod
   7 integer i
   8 contains
   9 subroutine a
  10   integer :: c = 42
  11   call sub(b, c)
  12 end subroutine a
  13 subroutine b()
  14   i = i + 1
  15 end subroutine b
  16 subroutine c
  17 end subroutine
  18 end module
  19
  20 subroutine sub (proc, var)
  21   external proc1
  22   integer var
  23
  24   if (var .ne. 42) call abort
  25   call proc
  26 end subroutine
  27
  28 program contained_1
  29   use contained_1_mod
  30   i = 0
  31   call a
  32   if (i .ne. 1) call abort
  33 end program