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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c4b77b36dbad149668633edebcdc900761b678ba..c5e67371d11aed87df4d2b24b768ef081cee37f4 100644 (file)
--- 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 9ec8d370561a86a41f79be632749b3616e71f41d..99e257966e93f737e1f96a2dab5427b1468cf364 100644 (file)
--- 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 877e044af1aaeac5b9e80f169be4792307dc22e7..118d9c68e95dd886e2db8baf51e63d859e5521a3 100644 (file)
--- 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