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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index c65c7cb58c450c1973f7dc2e491b415a00aa1946..52e54c7b19b3039d84303d63f079c5c2f34ab44a 100644 (file)
--- 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 (file)
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

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index ebb2351456d91338f05db99c68ba4786ad896b91..dbe181549c3084c11005cce0abc346eb98b45cc3 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,8 @@
+2016-01-07  H.J. Lu  <hongjiu.lu@intel.com>
+
+       PR fortran/66680
+       * testsuite/libgomp.fortran/pr66680.f90: New test.
+
 2016-01-07  Jakub Jelinek  <jakub@redhat.com>
 
        PR middle-end/68960

diff --git a/libgomp/testsuite/libgomp.fortran/pr66680.f90 b/libgomp/testsuite/libgomp.fortran/pr66680.f90
new file mode 100644 (file)
index 0000000..b068cb3
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/pr66680.f90
@@ -0,0 +1,46 @@
+! { 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