25 lines
421 B
Fortran
25 lines
421 B
Fortran
! { dg-do run }
|
|
! PR13415
|
|
! Test pointer variables in common blocks.
|
|
|
|
subroutine test
|
|
implicit none
|
|
real, pointer :: p(:), q
|
|
common /block/ p, q
|
|
|
|
if (any (p .ne. (/1.0, 2.0/)) .or. (q .ne. 42.0)) call abort ()
|
|
end subroutine
|
|
|
|
program common_pointer_1
|
|
implicit none
|
|
real, target :: a(2), b
|
|
real, pointer :: x(:), y
|
|
common /block/ x, y
|
|
|
|
a = (/1.0, 2.0/)
|
|
b = 42.0
|
|
x=>a
|
|
y=>b
|
|
call test
|
|
end program
|