! 12 | |
block data bdn | |
implicit none | |
! 12 16 20 24 28 | |
integer :: v1, v2, v3, v4, v5 | |
! 9 18 22 28 32 41 45 | |
common /common1/ v1, v2/zz/v3, v4, v5 ! Replacing /zz/ with // causes parse error Adding /common1/ at 31 causes semantic error | |
! 7 | |
save /common1/ | |
! 6 10 | |
data v1, v2 /3, 4/ | |
! 16 | |
end block data bdn | |
end |