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
/
pr77260_1.f90
blob
0d2ead61ce72d31a4f795ebd953e2ecf70c44f4a
1
! { dg-do compile }
2
! { dg-options "-Wall" }
3
module
foo
4
5
implicit none
6
7
private
8
public f1
,
f2
9
10
contains
11
12
integer function
f1
()
13
integer
f2
14
f1
=
5
15
entry
f2
16
f2
=
8
17
end function
18
end module
19
20
program
test
21
use
foo
22
implicit none
23
print
*,
f2
()
24
end program
25
! { dg-final { cleanup-modules "foo" } }