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

vehre at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |vehre at gcc dot gnu.org

--- Comment #8 from vehre at gcc dot gnu.org ---
ICE confirmed.

You need to provide a main program to compilation unit and not compile with -c,
i.e.,

$ cat test_pr62536.f90
function f2 (x)
implicit none
  integer f2, x
  block
   block named
    integer a ! should be SAVEd
    a = a + x ! should increment by y every time
    f2 = a
   end block named
  end block
  return
endfunction

end

$ ./gfortran.sh -g test_pr62536.f90 -o test_pr62536
Fortraning using ***DEVelopment*** version...
test_pr62536.f90:5:3:

    block named
   1

Error: Unclassifiable statement at (1)
test_pr62536.f90:9:18:

    end block named
                  1

Error: Syntax error in END BLOCK statement at (1)
test_pr62536.f90:10:5:

   end block
     1

Error: Expecting END FUNCTION statement at (1)
f951: internal compiler error: Segmentation fault
0xe3e374 crash_signal
        .../gcc/gcc/toplev.c:334
0x7d1efd gfc_resolve(gfc_namespace*)
        .../gcc/gcc/fortran/resolve.c:15543

Reply via email to