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
coarray_41.f90: Add "-latomic" option if libatomic_available.
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr44735.f90
blob
0c9b8dec18c476af9a14b63a78d561abb39d7940
1
! { dg-do run }
2
3
program
main
4
if
(
bug
() /=
"abcdefghij"
)
call
abort
5
contains
6
function
bug
()
7
character
(
len
=
10
) ::
bug
8
character
(
len
=
1
),
dimension
(:),
pointer
::
p_chars
9
allocate
(
p_chars
(
10
))
10
p_chars
= [
'a'
,
'b'
,
'c'
,
'd'
,
'e'
,
'f'
,
'g'
,
'h'
,
'i'
,
'j'
]
11
forall
(
i
=
1
:
len
(
bug
))
12
bug
(
i
:
i
) =
p_chars
(
i
)
13
end
forall
14
deallocate
(
p_chars
)
15
end function
bug
16
end program
main