[Bug fortran/58857] [OOP] CLASS wrongly rejected in BLOCK DATA

[cvs-commit at gcc dot gnu.org via Gcc-bugs]

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

--- Comment #7 from GCC Commits <cvs-commit at gcc dot gnu.org> ---
The master branch has been updated by Harald Anlauf <anl...@gcc.gnu.org>:

https://gcc.gnu.org/g:8fd2158acac181a308126ad7b798b478eb3b7087

commit r15-7212-g8fd2158acac181a308126ad7b798b478eb3b7087
Author: Harald Anlauf <anl...@gmx.de>
Date:   Sat Jan 25 19:59:56 2025 +0100

    Fortran: fix issues with variables in BLOCK DATA [PR58857]

            PR fortran/58857

    gcc/fortran/ChangeLog:

            * class.cc (gfc_find_derived_vtab): Declare some frontend generated
            variables and procedures (_vtab, _copy, _deallocate) as artificial.
            (find_intrinsic_vtab): Likewise.
            * trans-decl.cc (check_block_data_decls): New helper function.
            (gfc_generate_block_data): Use it to emit warnings for variables
            declared in a BLOCK DATA program unit but not in a COMMON block.

    gcc/testsuite/ChangeLog:

            * gfortran.dg/uncommon_block_data_2.f90: New test.