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