diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2016-01-07 18:18:29 +0000 |
|---|---|---|
| committer | H.J. Lu <hjl@gcc.gnu.org> | 2016-01-07 10:18:29 -0800 |
| commit | 95918b49dff7ec678d663838ec68fcb53994cf0e (patch) | |
| tree | 0625b23e538bac0c2520421fa7a48f2a3faa9783 /gcc | |
| parent | 365db8e0e5b7994e1a41fd13b58d230b5df84ae3 (diff) | |
| download | gcc-95918b49dff7ec678d663838ec68fcb53994cf0e.zip gcc-95918b49dff7ec678d663838ec68fcb53994cf0e.tar.gz gcc-95918b49dff7ec678d663838ec68fcb53994cf0e.tar.bz2 | |
Move pr66680.f90 to libgomp
gcc/testsuite/
PR fortran/66680
gfortran.dg/gomp/pr66680.f90: Moved to libgomp.
libgomp/
PR fortran/66680
* testsuite/libgomp.fortran/pr66680.f90: New test.
From-SVN: r232138
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/pr66680.f90 | 46 |
2 files changed, 5 insertions, 46 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c65c7cb..52e54c7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-01-07 H.J. Lu <hongjiu.lu@intel.com> + + PR fortran/66680 + gfortran.dg/gomp/pr66680.f90: Moved to libgomp. + 2016-01-07 Nick Clifton <nickc@redhat.com> PR target/66655 diff --git a/gcc/testsuite/gfortran.dg/gomp/pr66680.f90 b/gcc/testsuite/gfortran.dg/gomp/pr66680.f90 deleted file mode 100644 index b068cb3..0000000 --- a/gcc/testsuite/gfortran.dg/gomp/pr66680.f90 +++ /dev/null @@ -1,46 +0,0 @@ -! { dg-do run } -! PR 66680: ICE with openmp, a loop and a type bound procedure -! Contributed by Miha Polajnar <polajnar.miha@gmail.com> -! -module m1 - implicit none - integer :: n = 5 - type :: t1 - contains - procedure :: s => s1 - end type t1 -contains - pure subroutine s1(self,p,esta) - class(t1), intent(in) :: self - integer, optional, intent(in) :: p - integer, intent(out) :: esta - end subroutine s1 -end module m1 -module m2 - use m1, only: t1, n - implicit none - type(t1), allocatable :: test(:) -contains - pure subroutine s2(test1,esta) - type(t1), intent(in) :: test1 - integer, intent(out) :: esta - integer :: p, i - do p = 1, n - i = p ! using i instead of p works - call test1%s(p=p,esta=esta) - if ( esta /= 0 ) return - end do - end subroutine s2 - subroutine s3() - integer :: i, esta - !$omp parallel do & - !$omp private(i) - do i = 1, n - call s2(test(i),esta) - end do - !$omp end parallel do - end subroutine s3 -end module m2 -program main - implicit none -end program main |