The following is non-standard and the compiler should probably generate a warning/error with '-pedantic -std=f95' COMMON /BLOCKA/ A,B,C COMMON /BLOCKB/ D,E,F EQUIVALENCE(B,E) END
This gives a seg fault for me. This is a dup of bug 18870, really. *** This bug has been marked as a duplicate of 18870 ***