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 | |
| 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
| -rw-r--r-- | libgomp/ChangeLog | 5 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 | 8 |
2 files changed, 10 insertions, 3 deletions
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog index 89ee866..1c82e5d 100644 --- a/libgomp/ChangeLog +++ b/libgomp/ChangeLog @@ -1,5 +1,10 @@ 2016-04-14 Cesar Philippidis <cesar@codesourcery.com> + * testsuite/libgomp.oacc-fortran/non-scalar-data.f90: Don't + pass parameter variables to subroutines. + +2016-04-14 Cesar Philippidis <cesar@codesourcery.com> + PR middle-end/70643 * testsuite/libgomp.oacc-fortran/pr70643.f90: New test. 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) |