1! { dg-do compile }
2!
3! PR fortran/77583 - ICE in pp_quoted_string, at pretty-print.c:966
4! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
5
6pure subroutine sub(s)
7contains
8 pure subroutine s ! { dg-error "conflicts with DUMMY argument" }
9 end
10end
11