Subversion Repositories openrisc

! { dg-do run }

module nonF03ComBlock

  common /NONF03COM/ r, s

  real :: r

  real :: s

  contains

    subroutine hello(myArray)

      integer, dimension(:) :: myArray

      r = 1.0

      s = 2.0

    end subroutine hello

end module nonF03ComBlock

program testComBlock

  use nonF03ComBlock

  integer, dimension(1:10) :: myArray

  call hello(myArray)

  ! these are set in the call to hello() above

  ! r and s are reals (default size) in com block, set to

  ! 1.0 and 2.0, respectively, in hello()

  if(r .ne. 1.0) then

     call abort()

  endif

  if(s .ne. 2.0) then

     call abort()

  endif

end program testComBlock

! { dg-final { cleanup-modules "nonf03comblock" } }