diff options
author | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-05-18 18:59:48 +0000 |
---|---|---|
committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2015-05-18 18:59:48 +0000 |
commit | 71c87d1c0f5048166870801c418ddfc52e396a9f (patch) | |
tree | d9f374aee104478d923a8ae4d567e30be975304f | |
parent | 8ea0dcb9e0ccebfc03bbe1b52a096c65c8e4d11c (diff) | |
download | gcc-71c87d1c0f5048166870801c418ddfc52e396a9f.zip gcc-71c87d1c0f5048166870801c418ddfc52e396a9f.tar.gz gcc-71c87d1c0f5048166870801c418ddfc52e396a9f.tar.bz2 |
pr41521_0.f90: Move INTERFACE statement in program unit.
2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org>
* gfortran.dg/lto/pr41521_0.f90: Move INTERFACE statement in program
unit.
* gfortran.dg/lto/pr41576_1.f90: Ditto.
From-SVN: r223309
-rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/lto/pr41521_0.f90 | 6 | ||||
-rw-r--r-- | 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 c4b77b3..c5e6737 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2015-05-18 Steven G. Kargl <kargl@gcc.gnu.org> + + * gfortran.dg/lto/pr41521_0.f90: Move INTERFACE statement in program + unit. + * gfortran.dg/lto/pr41576_1.f90: Ditto. + 2015-05-12 Andreas Tobler <andreast@gcc.gnu.org> * 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 9ec8d37..99e2579 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 877e044..118d9c6 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 |