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

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 89ee866ac4c7f1ae07df0b79c64f3bd67514979a..1c82e5de1ef5b78d20bb3a57e6ec5e265a0cd440 100644 (file)
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,8 @@
+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

diff --git a/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90 b/libgomp/testsuite/libgomp.oacc-fortran/non-scalar-data.f90
index 4afb562e00cdb664104b8583a8dbf88b4e0058a8..94e4228e7a974bbe8dcd09320167025ac8344527 100644 (file)
--- 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)