https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69604
--- Comment #14 from Dominique d'Humieres <dominiq at lps dot ens.fr> --- > The patch in comment 7 no longer applies: 'ts.type == BT_DERIVED' has been > replaced with 'ts.type == BT_DERIVED'. Updating the patch along this line > does not remove the ICE!-( Read "replaced with 'gfc_bt_struct (ts.type)'".