procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

use_[567].f90: Use correct cleanup-modules dg directive.

Browse source 
* gfortran.dg/use_[567].f90: Use correct cleanup-modules dg directive.

From-SVN: r123209
This commit is contained in:
Uros Bizjak 2007-03-26 08:08:54 +02:00 • committed by Uros Bizjak
parent 420b320a12
commit 04375334a4
4 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,7 @@
2007-03-26 Uros Bizjak <ubizjak@gmail.com>
* gfortran.dg/use_[567].f90: Use correct cleanup-modules dg directive.
2007-03-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31199

2
gcc/testsuite/gfortran.dg/use_5.f90
View file

@ -46,4 +46,4 @@ use z
if ((.addfive. i) /= 2+5) call abort ()
end
! { dg-final { cleanup-tree-dump "x y z" } }
! { dg-final { cleanup-modules "x y z" } }

2
gcc/testsuite/gfortran.dg/use_6.f90
View file

@ -42,4 +42,4 @@ use y, operator(.my.) => operator(.addfive.) ! { dg-error "Fortran 2003: Renamin
use z
end
! { dg-final { cleanup-tree-dump "x y z" } }
! { dg-final { cleanup-modules "x y z" } }

2
gcc/testsuite/gfortran.dg/use_7.f90
View file

@ -46,4 +46,4 @@ use y, operator(.my.) => sub ! { dg-error "Syntax error in USE statement" }
use y, operator(+) => operator(.addfive.) ! { dg-error "Syntax error in USE statement" }
end
! { dg-final { cleanup-tree-dump "x y z" } }
! { dg-final { cleanup-modules "x y z" } }