From 71c87d1c0f5048166870801c418ddfc52e396a9f Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Mon, 18 May 2015 18:59:48 +0000 Subject: [PATCH] pr41521_0.f90: Move INTERFACE statement in program unit. 2015-05-18 Steven G. Kargl * gfortran.dg/lto/pr41521_0.f90: Move INTERFACE statement in program unit. * gfortran.dg/lto/pr41576_1.f90: Ditto. From-SVN: r223309 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/lto/pr41521_0.f90 | 6 +++--- gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 | 7 +++---- 3 files changed, 12 insertions(+), 7 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c4b77b36dba..c5e67371d11 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2015-05-18 Steven G. Kargl + + * gfortran.dg/lto/pr41521_0.f90: Move INTERFACE statement in program + unit. + * gfortran.dg/lto/pr41576_1.f90: Ditto. + 2015-05-12 Andreas Tobler * lib/target-supports.exp (check_effective_target_pie): Add *-*-freebsd* diff --git a/gcc/testsuite/gfortran.dg/lto/pr41521_0.f90 b/gcc/testsuite/gfortran.dg/lto/pr41521_0.f90 index 9ec8d370561..99e257966e9 100644 --- a/gcc/testsuite/gfortran.dg/lto/pr41521_0.f90 +++ b/gcc/testsuite/gfortran.dg/lto/pr41521_0.f90 @@ -3,9 +3,6 @@ program species integer spk(2) real eval(2) -spk = 2 -call atom(1.1,spk,eval) -end program interface subroutine atom(sol,k,eval) real, intent(in) :: sol @@ -13,4 +10,7 @@ interface real, intent(out) :: eval(2) end subroutine end interface +spk = 2 +call atom(1.1,spk,eval) +end program diff --git a/gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 b/gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 index 877e044af1a..118d9c68e95 100644 --- a/gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 +++ b/gcc/testsuite/gfortran.dg/lto/pr41576_1.f90 @@ -1,12 +1,11 @@ program test common /bar/ c, d integer(4) :: c, d - call foo - if (c/=1 .or. d/=2) call abort -end program test - interface subroutine foo() end subroutine end interface + call foo + if (c/=1 .or. d/=2) call abort +end program test -- 2.30.2