aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/vla7.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/vla7.f90')
-rw-r--r--gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/vla7.f90143
1 files changed, 0 insertions, 143 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/vla7.f90 b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/vla7.f90
deleted file mode 100644
index 29a669644..000000000
--- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/vla7.f90
+++ /dev/null
@@ -1,143 +0,0 @@
-! { dg-do run }
-! { dg-options "-w" }
-
- character (6) :: c, f2
- character (6) :: d(2)
- c = f1 (6)
- if (c .ne. 'opqrst') call abort
- c = f2 (6)
- if (c .ne. '_/!!/_') call abort
- d = f3 (6)
- if (d(1) .ne. 'opqrst' .or. d(2) .ne. 'a') call abort
- d = f4 (6)
- if (d(1) .ne. 'Opqrst' .or. d(2) .ne. 'A') call abort
-contains
- function f1 (n)
- use omp_lib
- character (n) :: f1
- logical :: l
- f1 = 'abcdef'
- l = .false.
-!$omp parallel firstprivate (f1) reduction (.or.:l) num_threads (2)
- l = f1 .ne. 'abcdef'
- if (omp_get_thread_num () .eq. 0) f1 = 'ijklmn'
- if (omp_get_thread_num () .eq. 1) f1 = 'IJKLMN'
-!$omp barrier
- l = l .or. (omp_get_thread_num () .eq. 0 .and. f1 .ne. 'ijklmn')
- l = l .or. (omp_get_thread_num () .eq. 1 .and. f1 .ne. 'IJKLMN')
-!$omp end parallel
- f1 = 'zZzz_z'
-!$omp parallel shared (f1) reduction (.or.:l) num_threads (2)
- l = l .or. f1 .ne. 'zZzz_z'
-!$omp barrier
-!$omp master
- f1 = 'abc'
-!$omp end master
-!$omp barrier
- l = l .or. f1 .ne. 'abc'
-!$omp barrier
- if (omp_get_thread_num () .eq. 1) f1 = 'def'
-!$omp barrier
- l = l .or. f1 .ne. 'def'
-!$omp end parallel
- if (l) call abort
- f1 = 'opqrst'
- end function f1
- function f3 (n)
- use omp_lib
- character (n), dimension (2) :: f3
- logical :: l
- f3 = 'abcdef'
- l = .false.
-!$omp parallel firstprivate (f3) reduction (.or.:l) num_threads (2)
- l = any (f3 .ne. 'abcdef')
- if (omp_get_thread_num () .eq. 0) f3 = 'ijklmn'
- if (omp_get_thread_num () .eq. 1) f3 = 'IJKLMN'
-!$omp barrier
- l = l .or. (omp_get_thread_num () .eq. 0 .and. any (f3 .ne. 'ijklmn'))
- l = l .or. (omp_get_thread_num () .eq. 1 .and. any (f3 .ne. 'IJKLMN'))
-!$omp end parallel
- f3 = 'zZzz_z'
-!$omp parallel shared (f3) reduction (.or.:l) num_threads (2)
- l = l .or. any (f3 .ne. 'zZzz_z')
-!$omp barrier
-!$omp master
- f3 = 'abc'
-!$omp end master
-!$omp barrier
- l = l .or. any (f3 .ne. 'abc')
-!$omp barrier
- if (omp_get_thread_num () .eq. 1) f3 = 'def'
-!$omp barrier
- l = l .or. any (f3 .ne. 'def')
-!$omp end parallel
- if (l) call abort
- f3(1) = 'opqrst'
- f3(2) = 'a'
- end function f3
- function f4 (n)
- use omp_lib
- character (n), dimension (n - 4) :: f4
- logical :: l
- f4 = 'abcdef'
- l = .false.
-!$omp parallel firstprivate (f4) reduction (.or.:l) num_threads (2)
- l = any (f4 .ne. 'abcdef')
- if (omp_get_thread_num () .eq. 0) f4 = 'ijklmn'
- if (omp_get_thread_num () .eq. 1) f4 = 'IJKLMN'
-!$omp barrier
- l = l .or. (omp_get_thread_num () .eq. 0 .and. any (f4 .ne. 'ijklmn'))
- l = l .or. (omp_get_thread_num () .eq. 1 .and. any (f4 .ne. 'IJKLMN'))
- l = l .or. size (f4) .ne. 2
-!$omp end parallel
- f4 = 'zZzz_z'
-!$omp parallel shared (f4) reduction (.or.:l) num_threads (2)
- l = l .or. any (f4 .ne. 'zZzz_z')
-!$omp barrier
-!$omp master
- f4 = 'abc'
-!$omp end master
-!$omp barrier
- l = l .or. any (f4 .ne. 'abc')
-!$omp barrier
- if (omp_get_thread_num () .eq. 1) f4 = 'def'
-!$omp barrier
- l = l .or. any (f4 .ne. 'def')
- l = l .or. size (f4) .ne. 2
-!$omp end parallel
- if (l) call abort
- f4(1) = 'Opqrst'
- f4(2) = 'A'
- end function f4
-end
-function f2 (n)
- use omp_lib
- character (*) :: f2
- logical :: l
- f2 = 'abcdef'
- l = .false.
-!$omp parallel firstprivate (f2) reduction (.or.:l) num_threads (2)
- l = f2 .ne. 'abcdef'
- if (omp_get_thread_num () .eq. 0) f2 = 'ijklmn'
- if (omp_get_thread_num () .eq. 1) f2 = 'IJKLMN'
-!$omp barrier
- l = l .or. (omp_get_thread_num () .eq. 0 .and. f2 .ne. 'ijklmn')
- l = l .or. (omp_get_thread_num () .eq. 1 .and. f2 .ne. 'IJKLMN')
-!$omp end parallel
- f2 = 'zZzz_z'
-!$omp parallel shared (f2) reduction (.or.:l) num_threads (2)
- l = l .or. f2 .ne. 'zZzz_z'
-!$omp barrier
-!$omp master
- f2 = 'abc'
-!$omp end master
-!$omp barrier
- l = l .or. f2 .ne. 'abc'
-!$omp barrier
- if (omp_get_thread_num () .eq. 1) f2 = 'def'
-!$omp barrier
- l = l .or. f2 .ne. 'def'
-!$omp end parallel
- if (l) call abort
- f2 = '_/!!/_'
-end function f2