| /dports/lang/gcc12-devel/gcc-12-20211205/libgomp/testsuite/libgomp.oacc-fortran/ |
| H A D | optional-update-device.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
41 allocate (res_alloc(n))
43 res_alloc(:) = 0
49 call test_allocatable(res_alloc, a_alloc)
51 if (res_alloc(i) .ne. a_alloc(i)) stop 5
54 call test_allocatable(res_alloc, a_alloc, b_alloc)
56 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
61 deallocate (res_alloc)
|
| H A D | optional-data-copyin.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), c_alloc(:), res_alloc(:) variable
51 allocate (res_alloc(n))
59 call test_allocatable(res_alloc, a_alloc)
61 if (res_alloc(i) .ne. a_alloc(i)) stop 7
64 call test_allocatable(res_alloc, a_alloc, b_alloc)
66 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 8
69 call test_allocatable(res_alloc, a_alloc, b_alloc, c_alloc)
71 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 9
77 deallocate (res_alloc)
|
| H A D | optional-data-copyout.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
40 allocate (res_alloc(n))
42 res_alloc(:) = 0
50 if (res_alloc(i) .ne. 0) stop 5
53 call test_allocatable(a_alloc, b_alloc, res_alloc)
55 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
60 deallocate (res_alloc)
|
| H A D | optional-update-host.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
42 allocate(res_alloc(n))
44 res_alloc(:) = 0
52 if (res_alloc(i) .ne. 0) stop 5
55 call test_allocatable(a_alloc, b_alloc, res_alloc)
57 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
62 deallocate(res_alloc)
|
| /dports/lang/gcc11/gcc-11.2.0/libgomp/testsuite/libgomp.oacc-fortran/ |
| H A D | optional-update-device.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
41 allocate (res_alloc(n))
43 res_alloc(:) = 0
49 call test_allocatable(res_alloc, a_alloc)
51 if (res_alloc(i) .ne. a_alloc(i)) stop 5
54 call test_allocatable(res_alloc, a_alloc, b_alloc)
56 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
61 deallocate (res_alloc)
|
| H A D | optional-data-copyin.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), c_alloc(:), res_alloc(:) variable
51 allocate (res_alloc(n))
59 call test_allocatable(res_alloc, a_alloc)
61 if (res_alloc(i) .ne. a_alloc(i)) stop 7
64 call test_allocatable(res_alloc, a_alloc, b_alloc)
66 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 8
69 call test_allocatable(res_alloc, a_alloc, b_alloc, c_alloc)
71 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 9
77 deallocate (res_alloc)
|
| H A D | optional-data-copyout.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
40 allocate (res_alloc(n))
42 res_alloc(:) = 0
50 if (res_alloc(i) .ne. 0) stop 5
53 call test_allocatable(a_alloc, b_alloc, res_alloc)
55 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
60 deallocate (res_alloc)
|
| H A D | optional-update-host.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
42 allocate(res_alloc(n))
44 res_alloc(:) = 0
52 if (res_alloc(i) .ne. 0) stop 5
55 call test_allocatable(a_alloc, b_alloc, res_alloc)
57 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
62 deallocate(res_alloc)
|
| /dports/lang/gcc10/gcc-10.3.0/libgomp/testsuite/libgomp.oacc-fortran/ |
| H A D | optional-update-device.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
41 allocate (res_alloc(n))
43 res_alloc(:) = 0
49 call test_allocatable(res_alloc, a_alloc)
51 if (res_alloc(i) .ne. a_alloc(i)) stop 5
54 call test_allocatable(res_alloc, a_alloc, b_alloc)
56 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
61 deallocate (res_alloc)
|
| H A D | optional-data-copyin.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), c_alloc(:), res_alloc(:) variable
51 allocate (res_alloc(n))
59 call test_allocatable(res_alloc, a_alloc)
61 if (res_alloc(i) .ne. a_alloc(i)) stop 7
64 call test_allocatable(res_alloc, a_alloc, b_alloc)
66 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 8
69 call test_allocatable(res_alloc, a_alloc, b_alloc, c_alloc)
71 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 9
77 deallocate (res_alloc)
|
| H A D | optional-data-copyout.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
40 allocate (res_alloc(n))
42 res_alloc(:) = 0
50 if (res_alloc(i) .ne. 0) stop 5
53 call test_allocatable(a_alloc, b_alloc, res_alloc)
55 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
60 deallocate (res_alloc)
|
| H A D | optional-update-host.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
42 allocate(res_alloc(n))
44 res_alloc(:) = 0
52 if (res_alloc(i) .ne. 0) stop 5
55 call test_allocatable(a_alloc, b_alloc, res_alloc)
57 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
62 deallocate(res_alloc)
|
| /dports/lang/gcc11-devel/gcc-11-20211009/libgomp/testsuite/libgomp.oacc-fortran/ |
| H A D | optional-update-device.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
41 allocate (res_alloc(n))
43 res_alloc(:) = 0
49 call test_allocatable(res_alloc, a_alloc)
51 if (res_alloc(i) .ne. a_alloc(i)) stop 5
54 call test_allocatable(res_alloc, a_alloc, b_alloc)
56 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
61 deallocate (res_alloc)
|
| H A D | optional-data-copyin.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), c_alloc(:), res_alloc(:) variable
51 allocate (res_alloc(n))
59 call test_allocatable(res_alloc, a_alloc)
61 if (res_alloc(i) .ne. a_alloc(i)) stop 7
64 call test_allocatable(res_alloc, a_alloc, b_alloc)
66 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 8
69 call test_allocatable(res_alloc, a_alloc, b_alloc, c_alloc)
71 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 9
77 deallocate (res_alloc)
|
| H A D | optional-data-copyout.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
40 allocate (res_alloc(n))
42 res_alloc(:) = 0
50 if (res_alloc(i) .ne. 0) stop 5
53 call test_allocatable(a_alloc, b_alloc, res_alloc)
55 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
60 deallocate (res_alloc)
|
| H A D | optional-update-host.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
42 allocate(res_alloc(n))
44 res_alloc(:) = 0
52 if (res_alloc(i) .ne. 0) stop 5
55 call test_allocatable(a_alloc, b_alloc, res_alloc)
57 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
62 deallocate(res_alloc)
|
| /dports/devel/avr-gcc/gcc-10.2.0/libgomp/testsuite/libgomp.oacc-fortran/ |
| H A D | optional-update-device.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
41 allocate (res_alloc(n))
43 res_alloc(:) = 0
49 call test_allocatable(res_alloc, a_alloc)
51 if (res_alloc(i) .ne. a_alloc(i)) stop 5
54 call test_allocatable(res_alloc, a_alloc, b_alloc)
56 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
61 deallocate (res_alloc)
|
| H A D | optional-data-copyin.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), c_alloc(:), res_alloc(:) variable
51 allocate (res_alloc(n))
59 call test_allocatable(res_alloc, a_alloc)
61 if (res_alloc(i) .ne. a_alloc(i)) stop 7
64 call test_allocatable(res_alloc, a_alloc, b_alloc)
66 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 8
69 call test_allocatable(res_alloc, a_alloc, b_alloc, c_alloc)
71 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 9
77 deallocate (res_alloc)
|
| H A D | optional-data-copyout.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
40 allocate (res_alloc(n))
42 res_alloc(:) = 0
50 if (res_alloc(i) .ne. 0) stop 5
53 call test_allocatable(a_alloc, b_alloc, res_alloc)
55 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
60 deallocate (res_alloc)
|
| /dports/lang/gcc10-devel/gcc-10-20211008/libgomp/testsuite/libgomp.oacc-fortran/ |
| H A D | optional-update-device.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
41 allocate (res_alloc(n))
43 res_alloc(:) = 0
49 call test_allocatable(res_alloc, a_alloc)
51 if (res_alloc(i) .ne. a_alloc(i)) stop 5
54 call test_allocatable(res_alloc, a_alloc, b_alloc)
56 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
61 deallocate (res_alloc)
|
| H A D | optional-data-copyin.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), c_alloc(:), res_alloc(:) variable
51 allocate (res_alloc(n))
59 call test_allocatable(res_alloc, a_alloc)
61 if (res_alloc(i) .ne. a_alloc(i)) stop 7
64 call test_allocatable(res_alloc, a_alloc, b_alloc)
66 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 8
69 call test_allocatable(res_alloc, a_alloc, b_alloc, c_alloc)
71 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 9
77 deallocate (res_alloc)
|
| H A D | optional-data-copyout.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
40 allocate (res_alloc(n))
42 res_alloc(:) = 0
50 if (res_alloc(i) .ne. 0) stop 5
53 call test_allocatable(a_alloc, b_alloc, res_alloc)
55 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
60 deallocate (res_alloc)
|
| /dports/misc/cxx_atomics_pic/gcc-11.2.0/libgomp/testsuite/libgomp.oacc-fortran/ |
| H A D | optional-update-device.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
41 allocate (res_alloc(n))
43 res_alloc(:) = 0
49 call test_allocatable(res_alloc, a_alloc)
51 if (res_alloc(i) .ne. a_alloc(i)) stop 5
54 call test_allocatable(res_alloc, a_alloc, b_alloc)
56 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
61 deallocate (res_alloc)
|
| H A D | optional-data-copyin.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), c_alloc(:), res_alloc(:) variable
51 allocate (res_alloc(n))
59 call test_allocatable(res_alloc, a_alloc)
61 if (res_alloc(i) .ne. a_alloc(i)) stop 7
64 call test_allocatable(res_alloc, a_alloc, b_alloc)
66 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 8
69 call test_allocatable(res_alloc, a_alloc, b_alloc, c_alloc)
71 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i) + c_alloc(i)) stop 9
77 deallocate (res_alloc)
|
| H A D | optional-data-copyout.f90 | 12 integer, allocatable :: a_alloc(:), b_alloc(:), res_alloc(:) variable
40 allocate (res_alloc(n))
42 res_alloc(:) = 0
50 if (res_alloc(i) .ne. 0) stop 5
53 call test_allocatable(a_alloc, b_alloc, res_alloc)
55 if (res_alloc(i) .ne. a_alloc(i) * b_alloc(i)) stop 6
60 deallocate (res_alloc)
|