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
Fix warning with -Wsign-compare -Wsystem-headers
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
pr23373-2.f90
blob
a1717074a16c8e6444031e84fc50108ce31cd82c
1
program
main
2
implicit none
3
real
,
dimension
(:),
pointer
::
x
4
x
=>
null
()
5
x
=>
test
()
6
if
(.
not
.
associated
(
x
))
STOP
1
7
if
(
size
(
x
) .
ne
.
10
)
STOP
2
8
contains
9
function
test
()
10
real
,
dimension
(:),
pointer
::
test
11
if
(
associated
(
x
))
STOP
3
12
allocate
(
test
(
10
))
13
if
(
associated
(
x
))
STOP
4
14
end function
test
15
end program
main