1! { dg-do run } 2! PR13415 3! Test pointer variables in common blocks. 4 5subroutine test 6 implicit none 7 real, pointer :: p(:), q 8 common /block/ p, q 9 10 if (any (p .ne. (/1.0, 2.0/)) .or. (q .ne. 42.0)) call abort () 11end subroutine 12 13program common_pointer_1 14 implicit none 15 real, target :: a(2), b 16 real, pointer :: x(:), y 17 common /block/ x, y 18 19 a = (/1.0, 2.0/) 20 b = 42.0 21 x=>a 22 y=>b 23 call test 24end program 25