https://gcc.gnu.org/bugzilla/show_bug.cgi?id=58904
--- Comment #4 from janus at gcc dot gnu.org --- (In reply to janus from comment #3) > Draft patch: Unfortunately this causes several regressions in the testsuite: FAIL: gfortran.dg/asynchronous_1.f90 -O (test for errors, line 35) FAIL: gfortran.dg/asynchronous_1.f90 -O (test for errors, line 36) FAIL: gfortran.dg/asynchronous_1.f90 -O (test for errors, line 40) FAIL: gfortran.dg/asynchronous_1.f90 -O (test for errors, line 41) FAIL: gfortran.dg/asynchronous_1.f90 -O (test for excess errors) FAIL: gfortran.dg/class_result_4.f90 -O (test for errors, line 3) FAIL: gfortran.dg/class_result_4.f90 -O (test for errors, line 4) FAIL: gfortran.dg/class_result_4.f90 -O (test for excess errors) FAIL: gfortran.dg/derived_external_function_1.f90 -O0 (test for excess errors) FAIL: gfortran.dg/derived_external_function_1.f90 -O1 (test for excess errors) FAIL: gfortran.dg/derived_external_function_1.f90 -O2 (test for excess errors) FAIL: gfortran.dg/derived_external_function_1.f90 -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions (test for excess errors) FAIL: gfortran.dg/derived_external_function_1.f90 -O3 -g (test for excess errors) FAIL: gfortran.dg/derived_external_function_1.f90 -Os (test for excess errors) FAIL: gfortran.dg/derived_function_interface_1.f90 -O (test for errors, line 41) FAIL: gfortran.dg/derived_function_interface_1.f90 -O (test for errors, line 42) FAIL: gfortran.dg/derived_function_interface_1.f90 -O (test for excess errors) FAIL: gfortran.dg/func_result_5.f90 -O (test for excess errors) FAIL: gfortran.dg/function_types_1.f90 -O (test for errors, line 9) FAIL: gfortran.dg/function_types_1.f90 -O (test for excess errors) FAIL: gfortran.dg/function_types_2.f90 -O (test for excess errors) FAIL: gfortran.dg/function_types_3.f90 -O (test for errors, line 8) FAIL: gfortran.dg/function_types_3.f90 -O (test for errors, line 17) FAIL: gfortran.dg/function_types_3.f90 -O (test for errors, line 18) FAIL: gfortran.dg/function_types_3.f90 -O (test for excess errors) FAIL: gfortran.dg/func_derived_5.f90 -O (test for excess errors) FAIL: gfortran.dg/function_kinds_1.f90 -O0 (test for excess errors) FAIL: gfortran.dg/function_kinds_1.f90 -O1 (test for excess errors) FAIL: gfortran.dg/function_kinds_1.f90 -O2 (test for excess errors) FAIL: gfortran.dg/function_kinds_1.f90 -O3 -fomit-frame-pointer -funroll-loops -fpeel-loops -ftracer -finline-functions (test for excess errors) FAIL: gfortran.dg/function_kinds_1.f90 -O3 -g (test for excess errors) FAIL: gfortran.dg/function_kinds_1.f90 -Os (test for excess errors) FAIL: gfortran.dg/function_kinds_2.f90 -O (test for errors, line 16) FAIL: gfortran.dg/function_kinds_2.f90 -O (test for excess errors)