From: Cesar Philippidis <cesar@codesourcery.com>
Date: Thu, 14 Apr 2016 21:24:03 +0000 (-0700)
Subject: non-scalar-data.f90: Don't pass parameter variables to subroutines.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=aadc043f3c1d31fcdfebb4a71821724232465a45;p=gcc.git

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 89ee866ac4c..1c82e5de1ef 100644
--- 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 4afb562e00c..94e4228e7a9 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)