PR fortran/48117

	* gfortran.dg/gomp/pr48117.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172119 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index f17362e..01b95ae 100644 (file)
--- 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.
+
        PR debug/48343
        * gcc.dg/torture/pr48343.c: New test.
 

diff --git a/gcc/testsuite/gfortran.dg/gomp/pr48117.f90 b/gcc/testsuite/gfortran.dg/gomp/pr48117.f90
new file mode 100644 (file)
index 0000000..bc8ad9b
--- /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