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 ChangeLog and version files for release
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
com_block_driver.f90
blob
0445635c881623858ceba0697bac272794c1a5f6
1
! { dg-do run }
2
module
myComModule
3
use
,
intrinsic
::
iso_c_binding
4
5
common
/
COM2
/
R2
,
S2
6
real
(
c_double
) ::
r2
7
real
(
c_double
) ::
s2
8
bind
(
c
) :: /
COM2
/
9
10
end module
myComModule
11
12
module
comBlockTests
13
use
,
intrinsic
::
iso_c_binding
14
use
myComModule
15
16
implicit none
17
18
common
/
COM
/
R
,
S
19
real
(
c_double
) ::
r
20
real
(
c_double
) ::
s
21
bind
(
c
) :: /
COM
/
22
23
contains
24
25
subroutine
testTypes
()
26
implicit none
27
end subroutine
testTypes
28
end module
comBlockTests
29
30
program
comBlockDriver
31
use
comBlockTests
32
33
call
testTypes
()
34
end program
comBlockDriver