[fortran,patch] Improve checking to fix PR 34083 (ice-on-invalid-code)

[Paul Richard Thomas]

:REVIEWMAIL:

OK for trunk.

Maybe the test could be added to derived_structure_comps_2.f90?

Thanks

Paul

-- 
The knack of flying is learning how to throw yourself at the ground and miss.
       --Hitchhikers Guide to the Galaxy