3 ! Test for the fix to PR24409 - the name clash between the module
4 ! name 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
23 character*15 :: buffer
24 buffer = lc ("Have a Nice DAY")
27 ! { dg-final { cleanup-modules "string serial" } }