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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@223309 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c4b77b3..c5e6737 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 9ec8d37..99e2579 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 877e044..118d9c6 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