관리-도구
편집 파일: foo.f
SUBROUTINE FOO() INTEGER BAR(2, 3) COMMON /BLOCK/ BAR RETURN END