Commit 61bed519 by Tobias Burnus Committed by Tobias Burnus

assignment_3.f90: Add missing cleanup-modules.

2008-05-27  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/assignment_3.f90: Add missing cleanup-modules.

From-SVN: r136053
parent 795dc587
2008-05-27 Tobias Burnus <burnus@net-b.de> 2008-05-27 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/assignment_3.f90: Add missing cleanup-modules.
2008-05-27 Tobias Burnus <burnus@net-b.de>
PR fortran/36316 PR fortran/36316
* gfortran.dg/assignment_3.f90: New. * gfortran.dg/assignment_3.f90: New.
......
...@@ -59,3 +59,5 @@ TYPE (distributed_vector) :: SCALP_DV ...@@ -59,3 +59,5 @@ TYPE (distributed_vector) :: SCALP_DV
ZTEMP = PVAZG * SCALP_DV ZTEMP = PVAZG * SCALP_DV
END SUBROUTINE CAININAD_SCALE_DISTVEC END SUBROUTINE CAININAD_SCALE_DISTVEC
END MODULE YOMCAIN END MODULE YOMCAIN
! { dg-final { cleanup-modules "yomcain" } }
...@@ -58,4 +58,4 @@ PROGRAM test ...@@ -58,4 +58,4 @@ PROGRAM test
WRITE (*,*) ispriv_t (5) ! { dg-error "has no IMPLICIT type" } WRITE (*,*) ispriv_t (5) ! { dg-error "has no IMPLICIT type" }
END PROGRAM test END PROGRAM test
! { dg-final { cleanup-modules privmod } } ! { dg-final { cleanup-modules "privmod" } }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment