From e97c99f15937e5762a973b25192aab824126a6d3 Mon Sep 17 00:00:00 2001
From: Rong Xu <xur@google.com>
Date: Tue, 2 Sep 2014 15:29:57 -0700
Subject: [gcc-4.9] Merge svn r214745 from google/gcc-4_9 branch. Merge gcc-4_9
 source r214745 from google/gcc-4_9 branch.

Change-Id: Ie6fa0fd72f4b4eec3adc4db4bb922e652d1c2605
---
 gcc-4.9/gcc/testsuite/gfortran.dg/gomp/pr62131.f90 | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 gcc-4.9/gcc/testsuite/gfortran.dg/gomp/pr62131.f90

(limited to 'gcc-4.9/gcc/testsuite/gfortran.dg/gomp/pr62131.f90')

diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/gomp/pr62131.f90 b/gcc-4.9/gcc/testsuite/gfortran.dg/gomp/pr62131.f90
new file mode 100644
index 000000000..8e88cd70b
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/gomp/pr62131.f90
@@ -0,0 +1,19 @@
+! PR fortran/62131
+! { dg-do compile }
+! { dg-options "-fopenmp" }
+
+program pr62131
+  integer,allocatable :: nerrs(:,:)
+  allocate(nerrs(10,10))
+  nerrs(:,:) = 0
+!$omp parallel do
+  do k=1,10
+    call uperrs(k,1)
+  end do
+contains
+  subroutine uperrs(i,io)
+    integer,intent(in) :: i,io
+!$omp atomic
+    nerrs(i,io)=nerrs(i,io)+1
+  end subroutine
+end
-- 
cgit v1.2.3