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: r172119

gcc/testsuite/ChangeLog

 2011-04-07  Jakub Jelinek  <jakub@redhat.com>
 
+	PR fortran/48117
+	* gfortran.dg/gomp/pr48117.f90: New test.
+
 	PR debug/48343
 	* gcc.dg/torture/pr48343.c: New test.
 

gcc/testsuite/gfortran.dg/gomp/pr48117.f90

+! 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