3 ! Test for supplementary fix to PR24409 - the name clash between the module
4 ! variable and the interface formal argument would cause an ICE.
6 ! Contributed by Paul Thomas <pault@gcc.gnu.org>
11 character(len=*), intent(in) :: string
12 character(len=len(string )) :: lc
15 character(len=12) :: string
24 character*15 :: buffer
25 buffer = lc ("Have a Nice DAY")
28 ! { dg-final { cleanup-modules "anything serial" } }