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" } }