2 ! This tests the patch for PRs 24327, 25024 & 25625, which
3 ! are all connected with references to internal procedures.
4 ! This is a composite of the PR testcases; and each is
7 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
9 ! PR25625 - would neglect to point out that there were 2 subroutines p.
14 subroutine p (i
) ! { dg-error "(1)" }
18 subroutine p (i
) ! { dg-error "is already defined" }
19 integer :: i
! { dg-error "Unexpected data declaration statement in CONTAINS section" }
20 end subroutine ! { dg-error "Expecting END MODULE statement" }
23 ! PR25124 - would happily ignore the declaration of foo in the main program.
26 x
= bar () ! This is OK because it is a regular reference.
29 function foo () ! { dg-error "explicit interface from a previous" }
30 foo
= 1.0 ! { dg-error "Unexpected assignment statement in CONTAINS section" }
31 end function foo
! { dg-error "Expecting END PROGRAM statement" }