Consecutive common block syntax - semantic error #3110

ivan-pi · 2024-01-13T21:23:30Z

MWE based upon the Netlib code praxis (https://netlib.org/opt/praxis):

      REAL*8 FUNCTION PRAXIS()
      COMMON /GLOBAL/ FX,LDT,DMIN,NF,NL
     .       /Q/ V,Q0,Q1,QA,QB,QC,QD0,QD1,QF1
      RETURN
      END
      SUBROUTINE MIN()
      COMMON /GLOBAL/ FX,LDT,DMIN,NF,NL
     .       /Q/ V,Q0,Q1,QA,QB,QC,QD0,QD1,QF1
      RETURN
      END
      REAL*8 FUNCTION FLIN (N,J,L,F,X,NF)
      COMMON /Q/ V,Q0,Q1,QA,QB,QC,QD0,QD1,QF1
      RETURN
      END
      SUBROUTINE QUAD()
      COMMON /GLOBAL/ FX,LDT,DMIN,NF,NL
     .       /Q/ V,Q0,Q1,QA,QB,QC,QD0,QD1,QF1
      RETURN
      END
      SUBROUTINE PRINT()
      COMMON /GLOBAL/ FX,LDT,DMIN,NF,NL
      RETURN
      END

Fails with:

$ lfortran -c --implicit-typing --fixed-form praxis_mwe1.f
semantic error: The order of variables in common block must be same in all programs
 --> praxis_mwe1.f:7:7 - 8:45
  |
7 |          COMMON /GLOBAL/ FX,LDT,DMIN,NF,NL
  |          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^...
...
  |
8 |         .       /Q/ V,Q0,Q1,QA,QB,QC,QD0,QD1,QF1
  | ...^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^

The syntax with consecutive common blocks,

       COMMON [/[cb]/] nlist [[,]/[cb]/ nlist]

is described in Oracles's Fortran 77 Language Reference.

certik mentioned this issue Dec 11, 2024

Implement COMMON BLOCK #661

Open

8 tasks

pjh40 self-assigned this Dec 21, 2024

pjh40 linked a pull request Dec 24, 2024 that will close this issue

Improved COMMON block parsing #5811

Draft

Provide feedback

Saved searches

Use saved searches to filter your results more quickly

Consecutive common block syntax - semantic error #3110

Consecutive common block syntax - semantic error #3110

ivan-pi commented Jan 13, 2024

Consecutive common block syntax - semantic error #3110

Consecutive common block syntax - semantic error #3110

Comments

ivan-pi commented Jan 13, 2024