The subroutine PACK is being interprete incorrectly. Reproducible: Always Steps to Reproduce: Compile this: integer I common /com/ I call PACK print '(''I ='', I3)', I stop end subroutine PACK integer I common /com/ I I = 17 return end Actual Results: bash-2.05b$ g77 -o test test.f test.f: In program `MAIN__': test.f:3: warning: call PACK ^ Reference to unimplemented intrinsic `PACK' at (^) (assumed EXTERNAL) bash-2.05b$ ./test I = 17 Expected Results: There should have been no diagnostic. (Except for writing a stupid program perhaps!) This program ran correctly. A more complicate program would not generate an executable until PACK was changed to a different name.
I would take this upstream, it compiles and runs fine.
