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.fort...@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
