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

   1 program contained
   2    implicit none
   3    integer i
   4
   5    i = 0;
   6    call testproc (40)
   7    if (i .ne. 42) call abort
   8 contains
   9    subroutine testproc (p)
  10       implicit none
  11       integer p
  12
  13       if (p .ne. 40) call abort
  14       i = p + 2
  15    end subroutine
  16 end program