From: Jakub Jelinek <jakub@redhat.com>
Date: Thu, 7 Apr 2011 18:34:14 +0000 (+0200)
Subject: re PR fortran/48117 (ICE: OpenMP; in build_int_cst_wide, at tree.c:1178)
X-Git-Tag: releases/gcc-4.5.3~88
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=f8d7b0f3d35e0d020ae682bb507436025e905efe;p=thirdparty%2Fgcc.git

re PR fortran/48117 (ICE: OpenMP; in build_int_cst_wide, at tree.c:1178)

	PR fortran/48117
	* gfortran.dg/gomp/pr48117.f90: New test.

From-SVN: r172121
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index fc10aad646b1..af47b5734c82 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,8 @@
 2011-04-07  Jakub Jelinek  <jakub@redhat.com>
 
+	PR fortran/48117
+	* gfortran.dg/gomp/pr48117.f90: New test.
+
 	Backported from mainline
 	2011-04-06  Jakub Jelinek  <jakub@redhat.com>
 
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr48117.f90 b/gcc/testsuite/gfortran.dg/gomp/pr48117.f90
new file mode 100644
index 000000000000..bc8ad9bc35eb
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/pr48117.f90
@@ -0,0 +1,11 @@
+! PR fortran/48117
+! { dg-do compile }
+! { dg-options "-O2 -fopenmp" }
+
+subroutine foo(x)
+  character(len=*), optional :: x
+  character(len=80) :: v
+  !$omp master
+    if (present(x)) v = adjustl(x)
+  !$omp end master
+end subroutine foo