[Bug fortran/77583] New: ICE in pp_quoted_string, at pretty-print.c:966

["gerhard dot steinmetz dot fortran at t-online dot de" <gcc-bugzilla at gcc dot gnu dot org>]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77583

            Bug ID: 77583
           Summary: ICE in pp_quoted_string, at pretty-print.c:966
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: gerhard.steinmetz.fortran@t-online.de
  Target Milestone: ---

A naming conflict between dummy-arg and internal subroutine/function.
Invalid code, and gcc configured with --enable-checking=yes.


$ cat z1.f90
pure subroutine sub(s)
contains
   pure subroutine s
   end
end


$ gfortran-7-20160911 z1.f90
z1.f90:3:20:

    pure subroutine s
                    1
Error: internal procedure 's' at (1) conflicts with DUMMY argument
'
in pp_quoted_string, at pretty-print.c:966
0x13a5ee0 pp_quoted_string
        ../../gcc/pretty-print.c:966
0x13a695b pp_format(pretty_printer*, text_info*)
        ../../gcc/pretty-print.c:595
0x139a6a0 diagnostic_report_diagnostic(diagnostic_context*, diagnostic_info*)
        ../../gcc/diagnostic.c:941
0x689248 gfc_error_now(char const*, ...)
        ../../gcc/fortran/error.c:1177
0x70af46 check_conflict
        ../../gcc/fortran/symbol.c:479
0x5dce0c copy_prefix
        ../../gcc/fortran/decl.c:4994
0x67e6de gfc_match_subroutine()
        ../../gcc/fortran/decl.c:6411
0x6d6781 decode_statement
        ../../gcc/fortran/parse.c:379
0x6d8444 next_free
        ../../gcc/fortran/parse.c:1143
0x6d8444 next_statement
        ../../gcc/fortran/parse.c:1376
0x6dbba4 parse_contained
        ../../gcc/fortran/parse.c:5337
0x6dbad6 parse_progunit
        ../../gcc/fortran/parse.c:5560
0x6dd134 gfc_parse_file()
        ../../gcc/fortran/parse.c:6005
0x71f5f2 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198