OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/34689 (libgomp.fortran/appendix-a/a.33.3.f90 -O (test for excess errors))

Browse Source 
2008-01-06  Tobias Burnus  <burnus@net-b.de>

       PR fortran/34689
       * gfortran.dg/intent_out_4.f90: Fix test case.

From-SVN: r131360
This commit is contained in:
Tobias Burnus 2008-01-06 21:18:01 +01:00 committed by Tobias Burnus
parent ac61ba6af2
commit bffcdc8720
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2008-01-06 Tobias Burnus <burnus@net-b.de>
PR fortran/34689
* gfortran.dg/intent_out_4.f90: Fix test case.
2008-01-06 Tobias Burnus <burnus@net-b.de>
PR fortran/34689

4
gcc/testsuite/gfortran.dg/intent_out_4.f90
View File

@ -11,8 +11,8 @@ function test()
integer :: test
interface
subroutine foo(a)
integer(inout) :: a
integer, intent(inout) :: a
end subroutine foo
end interface
call foo(a)
call foo(test)
end function test