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-04-24 Kai Tietz <kai.tietz@onevision.com>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
initialization_15.f90
1
! { dg-do compile }
2
! Test by Dominique d'Humieres (PR 33957)
3
function bug(i) result(c)
4
integer, pointer :: i
5
character(len=merge(1,2, associated(i))) :: c
6
c = ""
7
end function bug