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
This commit is contained in:
Jakub Jelinek 2007-03-21 20:43:14 +01:00 committed by Jakub Jelinek
parent 2cbac420ea
commit 2ada56f5a0
9 changed files with 27 additions and 0 deletions

View File

@ -1,3 +1,15 @@
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>
* acinclude.m4: Adjust regular expression for ld version

View File

@ -23,3 +23,4 @@
CALL SUB1(N)
END PROGRAM A22_8_GOOD
! { dg-final { cleanup-modules "a22_module8" } }

View File

@ -10,3 +10,5 @@
N = MAX(N,I)
END DO
END PROGRAM A31_4
! { dg-final { cleanup-modules "m" } }

View File

@ -12,3 +12,5 @@
END DO
PRINT *, R
END PROGRAM A31_5
! { dg-final { cleanup-modules "mod" } }

View File

@ -50,3 +50,5 @@
CALL INCR_B(P, WORK3())
!$OMP END PARALLEL SECTIONS
END SUBROUTINE A40
! { dg-final { cleanup-modules "data" } }

View File

@ -39,3 +39,5 @@ contains
if (m .ne. 3 .or. n .ne. 15) call abort
end subroutine test2
end
! { dg-final { cleanup-modules "reduction5" } }

View File

@ -17,3 +17,5 @@ end module threadprivate1
!$omp end parallel
if (l) call abort ()
end
! { dg-final { cleanup-modules "threadprivate1" } }

View File

@ -92,3 +92,5 @@ end module threadprivate2
deallocate (foo)
if (allocated (foo)) call abort
end
! { dg-final { cleanup-modules "threadprivate2" } }

View File

@ -104,3 +104,5 @@ end module threadprivate3
if (l) call abort
end
! { dg-final { cleanup-modules "threadprivate3" } }