Subversion Repositories openrisc

! 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)) call abort ()

  if (c .ne. "Hello World    ") call abort ()

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