mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 05:00:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

pr41521_0.f90: Move INTERFACE statement in program unit.

Browse Source 
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
This commit is contained in:
Steven G. Kargl 2015-05-18 18:59:48 +00:00
parent 8ea0dcb9e0
commit 71c87d1c0f
3 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View File

@ -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*

6
gcc/testsuite/gfortran.dg/lto/pr41521_0.f90
View File

@ -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

7
gcc/testsuite/gfortran.dg/lto/pr41576_1.f90
View File

@ -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