1! { dg-do run } 2! PR 45170 3! A variation of a theme for deferred type parameters. The 4! substring reference in the source= portion of the allocate 5! was not probably resolved. Testcase is a modified version 6! of a program due to Hans-Werner Boschmann <boschmann at tp1 7! dot physik dot uni-siegen dot de> 8! 9program helloworld 10 character(:),allocatable::string 11 real::rnd 12 call hello(5, string) 13 if (string /= 'hello' .or. len(string) /= 5) call abort 14contains 15 subroutine hello (n,string) 16 character(:),allocatable,intent(out)::string 17 integer,intent(in)::n 18 character(20)::helloworld="hello world" 19 allocate(string, source=helloworld(:n)) 20 end subroutine hello 21end program helloworld 22