repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
AArch64: correct constraint on Upl early clobber alternatives
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr111853.f90
blob
8f0b2666497315065292a902f24180ec6a688db5
1
! { dg-do compile }
2
!
3
! A null dereference fixed
4
!
5
! Contributed by Daniel Otero <canu7@yahoo.es>
6
!
7
subroutine
foo
(
rvec
)
8
TYPE
vec_rect_2D_real_acc
9
INTEGER
::
arr
10
END TYPE
11
CLASS
(
vec_rect_2D_real_acc
)
rvec
12
13
ASSOCIATE
(
arr
=>
rvec
%
arr
)
14
call
bar
(
arr
*
arr
)
15
end
associate
16
end