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

libgomp/ChangeLog

 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.
 

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)