| ! Program to test initialization of common blocks. | |
| subroutine test() | |
| character(len=15) :: c | |
| integer d, e | |
| real f | |
| common /block2/ c | |
| common /block/ d, e, f | |
| if ((d .ne. 42) .or. (e .ne. 43) .or. (f .ne. 2.0)) STOP 1 | |
| if (c .ne. "Hello World ") STOP 2 | |
| end subroutine | |
| program prog | |
| integer a(2) | |
| real b | |
| character(len=15) :: s | |
| common /block/ a, b | |
| common /block2/ s | |
| data b, a/2.0, 42, 43/ | |
| data s /"Hello World"/ | |
| call test () | |
| end program | |