Commit 2ada56f5 by Jakub Jelinek Committed by Jakub Jelinek

a.22.8.f90: Add dg-final cleanup-modules line.

	* testsuite/libgomp.fortran/appendix-a/a.22.8.f90: Add
	dg-final cleanup-modules line.
	* testsuite/libgomp.fortran/appendix-a/a.40.1.f90: Likewise.
	* testsuite/libgomp.fortran/appendix-a/a.31.5.f90: Likewise.
	* testsuite/libgomp.fortran/appendix-a/a.31.4.f90: Likewise.
	* testsuite/libgomp.fortran/threadprivate2.f90: Likewise.
	* testsuite/libgomp.fortran/reduction5.f90: Likewise.
	* testsuite/libgomp.fortran/threadprivate3.f90: Likewise.
	* testsuite/libgomp.fortran/threadprivate1.f90: Likewise.

From-SVN: r123116
parent 2cbac420
2007-03-21 Jakub Jelinek <jakub@redhat.com>
* testsuite/libgomp.fortran/appendix-a/a.22.8.f90: Add
dg-final cleanup-modules line.
* testsuite/libgomp.fortran/appendix-a/a.40.1.f90: Likewise.
* testsuite/libgomp.fortran/appendix-a/a.31.5.f90: Likewise.
* testsuite/libgomp.fortran/appendix-a/a.31.4.f90: Likewise.
* testsuite/libgomp.fortran/threadprivate2.f90: Likewise.
* testsuite/libgomp.fortran/reduction5.f90: Likewise.
* testsuite/libgomp.fortran/threadprivate3.f90: Likewise.
* testsuite/libgomp.fortran/threadprivate1.f90: Likewise.
2007-03-18 Andreas Schwab <schwab@suse.de> 2007-03-18 Andreas Schwab <schwab@suse.de>
* acinclude.m4: Adjust regular expression for ld version * acinclude.m4: Adjust regular expression for ld version
......
...@@ -23,3 +23,4 @@ ...@@ -23,3 +23,4 @@
CALL SUB1(N) CALL SUB1(N)
END PROGRAM A22_8_GOOD END PROGRAM A22_8_GOOD
! { dg-final { cleanup-modules "a22_module8" } }
...@@ -10,3 +10,5 @@ ...@@ -10,3 +10,5 @@
N = MAX(N,I) N = MAX(N,I)
END DO END DO
END PROGRAM A31_4 END PROGRAM A31_4
! { dg-final { cleanup-modules "m" } }
...@@ -12,3 +12,5 @@ ...@@ -12,3 +12,5 @@
END DO END DO
PRINT *, R PRINT *, R
END PROGRAM A31_5 END PROGRAM A31_5
! { dg-final { cleanup-modules "mod" } }
...@@ -50,3 +50,5 @@ ...@@ -50,3 +50,5 @@
CALL INCR_B(P, WORK3()) CALL INCR_B(P, WORK3())
!$OMP END PARALLEL SECTIONS !$OMP END PARALLEL SECTIONS
END SUBROUTINE A40 END SUBROUTINE A40
! { dg-final { cleanup-modules "data" } }
...@@ -39,3 +39,5 @@ contains ...@@ -39,3 +39,5 @@ contains
if (m .ne. 3 .or. n .ne. 15) call abort if (m .ne. 3 .or. n .ne. 15) call abort
end subroutine test2 end subroutine test2
end end
! { dg-final { cleanup-modules "reduction5" } }
...@@ -17,3 +17,5 @@ end module threadprivate1 ...@@ -17,3 +17,5 @@ end module threadprivate1
!$omp end parallel !$omp end parallel
if (l) call abort () if (l) call abort ()
end end
! { dg-final { cleanup-modules "threadprivate1" } }
...@@ -92,3 +92,5 @@ end module threadprivate2 ...@@ -92,3 +92,5 @@ end module threadprivate2
deallocate (foo) deallocate (foo)
if (allocated (foo)) call abort if (allocated (foo)) call abort
end end
! { dg-final { cleanup-modules "threadprivate2" } }
...@@ -104,3 +104,5 @@ end module threadprivate3 ...@@ -104,3 +104,5 @@ end module threadprivate3
if (l) call abort if (l) call abort
end end
! { dg-final { cleanup-modules "threadprivate3" } }
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