OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2010-02-10 Joost VandeVondele <jv244@cam.ac.uk>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
common_pointer_1.f90
1
! { dg-do run }
2
! PR13415
3
! Test pointer variables in common blocks.
4
5
subroutine 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 ()
11
end subroutine
12
13
program 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
24
end program