[Bug fortran/77765] New: ICE in gfc_match_oacc_routine, at fortran/openmp.c:1781

[gerhard.steinmetz.fortran@t-online.de]

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

            Bug ID: 77765
           Summary: ICE in gfc_match_oacc_routine, at
                    fortran/openmp.c:1781
           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: ---

For versions 5,6,7 with -fopenacc :


$ cat z1.f90
module m
contains
   recursive function f(x)
   end
   recursive function f(x)
   !$acc routine (f)
   end
end


$ gfortran-7-20160925 -fopenacc z1.f90
z1.f90:5:23:

z1.f90:3:3:

    recursive function f(x)
   2
z1.f90:5:23:

    recursive function f(x)
                       1
Error: Procedure 'f' at (1) is already defined at (2)
z1.f90:3:3:

    recursive function f(x)
   1
Error: Duplicate RECURSIVE attribute specified at (1)
f951: internal compiler error: Segmentation fault
0xc28c9f crash_signal
        ../../gcc/toplev.c:337
0x6cd44a gfc_match_oacc_routine()
        ../../gcc/fortran/openmp.c:1781
0x6d3f89 match_word_omp_simd
        ../../gcc/fortran/parse.c:93
0x6d464e match_word
        ../../gcc/fortran/parse.c:656
0x6d464e decode_oacc_directive
        ../../gcc/fortran/parse.c:685
0x6d9878 next_free
        ../../gcc/fortran/parse.c:1132
0x6d9878 next_statement
        ../../gcc/fortran/parse.c:1380
0x6dccc4 parse_contained
        ../../gcc/fortran/parse.c:5366
0x6ddad9 parse_module
        ../../gcc/fortran/parse.c:5759
0x6de4a9 gfc_parse_file()
        ../../gcc/fortran/parse.c:6065
0x720d82 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198