diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/allocatable_scalar_8.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/allocatable_scalar_8.f90 | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/allocatable_scalar_8.f90 b/gcc/testsuite/gfortran.dg/allocatable_scalar_8.f90 new file mode 100644 index 000000000..f7940ede5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/allocatable_scalar_8.f90 @@ -0,0 +1,17 @@ +! { dg-do run } +! +! PR fortran/41872 +! +! Character functions returning allocatable scalars +! +program test + implicit none + if (func () /= 'abc') call abort () +contains + function func() result (str) + character(len=3), allocatable :: str + if (allocated (str)) call abort () + allocate (str) + str = 'abc' + end function func +end program test |