1! Program to test initialization of common blocks. 2subroutine test() 3 character(len=15) :: c 4 integer d, e 5 real f 6 common /block2/ c 7 common /block/ d, e, f 8 9 if ((d .ne. 42) .or. (e .ne. 43) .or. (f .ne. 2.0)) STOP 1 10 if (c .ne. "Hello World ") STOP 2 11end subroutine 12 13program prog 14 integer a(2) 15 real b 16 character(len=15) :: s 17 common /block/ a, b 18 common /block2/ s 19 data b, a/2.0, 42, 43/ 20 data s /"Hello World"/ 21 22 call test () 23end program 24 25