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
Update concepts branch to revision 131834
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
module_blank_common.f90
blob
a06ff0098e00657e99b10a01b32a8e52b03e7c29
1
! { dg-do run }
2
!
3
! This tests that blank common works in modules. PR23270
4
! Contributed by Paul Thomas <pault@gcc.gnu.org>
5
!
6
module
global
7
common
a
,
b
8
real
a
,
b
9
end module
global
10
program
blank_common
11
use
global
12
common
z
13
complex
z
14
a
=
999.0
_4
15
b
= -
999.0
_4
16
if
(
z
.
ne
.
cmplx
(
a
,
b
))
call
abort
()
17
end program
blank_common
18
19
! { dg-final { cleanup-modules "global" } }