diff options
author | Cesar Philippidis <cesar@codesourcery.com> | 2016-04-14 14:24:03 -0700 |
---|---|---|
committer | Cesar Philippidis <cesar@gcc.gnu.org> | 2016-04-14 14:24:03 -0700 |
commit | aadc043f3c1d31fcdfebb4a71821724232465a45 (patch) | |
tree | ab4adc725d58c3e2adb242125c2ec626efbd140b /libgomp/testsuite | |
parent | 65bddf289ea2e8b9f7de201af6c2ad322a904d7e (diff) | |
download | gcc-aadc043f3c1d31fcdfebb4a71821724232465a45.zip gcc-aadc043f3c1d31fcdfebb4a71821724232465a45.tar.gz gcc-aadc043f3c1d31fcdfebb4a71821724232465a45.tar.bz2 |
non-scalar-data.f90: Don't pass parameter variables to subroutines.
libgomp/
* testsuite/libgomp.oacc-fortran/non-scalar-data.f90: Don't
pass parameter variables to subroutines.
From-SVN: r234992
Diffstat (limited to 'libgomp/testsuite')
-rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 b/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 index 4afb562..94e4228 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 @@ -6,9 +6,11 @@ program main implicit none - integer, parameter :: n = 100 - integer :: array(n), i - + integer,parameter :: size = 100 + integer :: array(size), i, n + + n = size + !$acc data copy(array) call kernels(array, n) |