gcc/testsuite/gfortran.dg/auto_char_len_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "" }
   3 ! [option to disable -pedantic as assumed character length
   4 !  functions are obsolescent]
   5 !
   6 ! PR fortran/41235
   7 !
   8
   9 character(len=*) function func()
  10   func = 'ABC'
  11 end function func
  12
  13 subroutine test(i)
  14   integer :: i
  15   character(len=i), external :: func
  16   print *, func()
  17 end subroutine test
  18
  19 subroutine test2(i)
  20   integer :: i
  21   character(len=i) :: func
  22   print *, func()
  23 end subroutine test2
  24
  25 call test(2)
  26 call test2(2)
  27 end