source: CIVL/mods/dev.civl.abc/examples/fortran/f77_standard/common_extension_bad.f

main
Last change on this file was aad342c, checked in by Stephen Siegel <siegel@…>, 3 years ago

Performing huge refactor to incorporate ABC, GMC, and SARL into CIVL repo and use Java modules.

git-svn-id: ​svn://vsl.cis.udel.edu/civl/trunk@5664 fb995dde-84ed-4084-dfe6-e5aef3e2452c
  • Property mode set to 100644
File size: 367 bytes
Line 
1c Example from F77 standard Sec. 8.3.6
2c "Equivalence association must not cause a common block storage sequence to be
3c extended by adding storage units preceding the first storage unit of the
4c first entity specified in a COMMON statement for the common block."
5 program p
6 COMMON /X/A
7 REAL B(2)
8 EQUIVALENCE (A,B(2))
9 end program
Note: See TracBrowser for help on using the repository browser.