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
PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pointer_check_13.f90
blob
f936f2d745b78ca8b66b48ef02a044d7fe028267
1
! { dg-do compile }
2
! { dg-options "-Wall -Wno-uninitialized" }
3
!
4
! PR fortran/56477
5
! The pointer target live range checking code used to trigger a NULL pointer
6
! dereference with the following case.
7
!
8
! Contributed by Andrew Benson <abensonca@gmail.com>
9
!
10
module
s
11
contains
12
function
so
()
13
implicit none
14
integer
,
target
::
so
15
integer
,
pointer
::
sp
16
sp
=>
so
17
return
18
end function
So
19
end module
s