[Bug fortran/77500] New: ICE in gfc_trans_omp_atomic, at fortran/trans-openmp.c:2822

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

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

            Bug ID: 77500
           Summary: ICE in gfc_trans_omp_atomic, at
                    fortran/trans-openmp.c:2822
           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: ---

Aborts with ICE down to at least 4.8 :


$ cat z1.f90
program p
   real :: x
!$omp atomic write
   x = f()
!$omp end atomic
end


$ gfortran-7-20160904 -fopenmp z1.f90
z1.f90:3:0:

 !$omp atomic write

internal compiler error: Segmentation fault
0xc2100f crash_signal
        ../../gcc/toplev.c:336
0x78df67 gfc_trans_omp_atomic
        ../../gcc/fortran/trans-openmp.c:2822
0x79b37f gfc_trans_omp_directive(gfc_code*)
        ../../gcc/fortran/trans-openmp.c:4488
0x722987 trans_code
        ../../gcc/fortran/trans.c:1933
0x7517a8 gfc_generate_function_code(gfc_namespace*)
        ../../gcc/fortran/trans-decl.c:6224
0x6dd050 translate_all_program_units
        ../../gcc/fortran/parse.c:5911
0x6dd050 gfc_parse_file()
        ../../gcc/fortran/parse.c:6117
0x71f602 gfc_be_parse_file
        ../../gcc/fortran/f95-lang.c:198