1! { dg-do run } 2module nonF03ComBlock 3 common /NONF03COM/ r, s 4 real :: r 5 real :: s 6 7 contains 8 9 subroutine hello(myArray) 10 integer, dimension(:) :: myArray 11 12 r = 1.0 13 s = 2.0 14 end subroutine hello 15end module nonF03ComBlock 16 17program testComBlock 18 use nonF03ComBlock 19 integer, dimension(1:10) :: myArray 20 21 call hello(myArray) 22 23 ! these are set in the call to hello() above 24 ! r and s are reals (default size) in com block, set to 25 ! 1.0 and 2.0, respectively, in hello() 26 if(r .ne. 1.0) then 27 call abort() 28 endif 29 if(s .ne. 2.0) then 30 call abort() 31 endif 32end program testComBlock 33