diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/zero_length_2.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/zero_length_2.f90 | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/zero_length_2.f90 b/gcc/testsuite/gfortran.dg/zero_length_2.f90 new file mode 100644 index 000000000..2cc3f2938 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/zero_length_2.f90 @@ -0,0 +1,16 @@ +! { dg-do run } + character(len=1) :: s + character(len=0) :: s0 + s = " " + s0 = "" + call bar ("") + call bar (s) + call bar (s0) + call bar (trim(s)) + call bar (min(s0,s0)) +contains + subroutine bar (s) + character(len=*), optional :: s + if (.not. present (S)) call abort + end subroutine bar +end |