!          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