diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr71204.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr71204.f90 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr71204.f90 b/gcc/testsuite/gfortran.dg/pr71204.f90 new file mode 100644 index 0000000000..1d1ee5c34a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr71204.f90 @@ -0,0 +1,17 @@ +! PR fortran/71204 +! { dg-do compile } +! { dg-options "-O0" } + +module pr71204 + character(10), allocatable :: z(:) +end module + +subroutine s1 + use pr71204 + z(2) = z(1) +end + +subroutine s2 + use pr71204 + z(2) = z(1) +end |