The following should issue an error in the frontend: SUBROUTINE BARY() COMMON /A/ X EQUIVALENCE (X,Y) REAL :: Y = 1. DATA X /1./ PRINT *, X, Y END currently it fails with a fatal error in the backend: [tobi@marktplatz tests]$ gfortran com.f90 com.f90: In function `bary': com.f90:16: fatal error: gfc_todo: Not Implemented: initial values for COMMON or EQUIVALENCE compilation terminated. [tobi@marktplatz tests]$
Confirmed.
Different error now: pr15382.f90: In function `bary': pr15382.f90:1: fatal error: gfc_todo: Not Implemented: Initialization of overlapping variables compilation terminated.
schluter@pcl247d:~/src/tests> ../gcc/build/gcc/f951 pr15083.f90 In file pr15083.f90:4 REAL :: Y = 1. 1 Error: Initializer not allowed for COMMON variable 'y' at (1) Execution times (seconds) TOTAL : 0.01 0.00 0.02 533 kB Extra diagnostic checks enabled; compiler may run slowly. Configure with --disable-checking to disable checks. schluter@pcl247d:~/src/tests> This was fixed by Paul Thomas' recent patches for commons and equivalences.