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
* tree-loop-distribution.c (struct partition): New field recording
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
warn_argument_mismatch_1.f90
blob
6a663e66b5f2ddf776e137b9e929fecb12826989
1
! { dg-do compile }
2
! { dg-options "-Wno-argument-mismatch" }
3
!
4
! No warnings should be output here with -Wno-argument-mismatch.
5
!
6
7
subroutine
s1
(
x
)
8
implicit none
9
integer
,
intent
(
in
) ::
x
10
print
*,
x
11
end subroutine
12
13
subroutine
s2
(
x
)
14
implicit none
15
integer
,
intent
(
in
) ::
x
(
1
)
16
print
*,
x
17
end subroutine
18
19
subroutine
s3
(
x
)
20
implicit none
21
integer
,
intent
(
in
) ::
x
(
2
)
22
print
*,
x
23
end subroutine
24
25
implicit none
26
integer
::
x
,
y
(
1
)
27
real
::
r
28
29
call
s1
(
r
)
30
call
s1
(
y
)
31
call
s2
(
x
)
32
call
s3
(
y
)
33
34
end