From: kargl Date: Mon, 18 May 2015 18:59:48 +0000 (+0000) Subject: 2015-05-18 Steven G. Kargl X-Git-Tag: upstream/6.1~7178 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=2a332a7a4981e0e98b094aa8ef1b553af6c1fc3e;p=platform%2Fupstream%2Flinaro-gcc.git 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. 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 --- 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 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