gcc/testsuite/gfortran.dg/char_result_mod_19.f90

   1 ! { dg-do  run }
   2 ! { dg-additional-sources char_result_19.f90 }
   3 !
   4 ! Module for char_result_19.f90
   5 ! Tests fix for PR86248
   6 !
   7 module test_module
   8   implicit none
   9   public :: func_1
  10   private
  11   character(len=*),dimension(0:2),parameter :: darray = (/"el0 ","el11","el2 "/)
  12 contains
  13   function func_1 (func_1_input) result(f)
  14     integer, intent(in) :: func_1_input
  15     character(len = len_trim (darray(func_1_input))) :: f
  16     f = darray(func_1_input)
  17   end function func_1
  18 end module test_module