Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
b42cc22ad4b3cc4c4cd697052b8f1dd85df96d0a
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
wextra_1.f
blob: 94c8eddec097efeb15d05455093bab9d4bcc036e [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Wextra"
}
program main
integer
,
parameter
::
x
=
3
!
{
dg
-
warning
"Unused parameter"
}
real
::
a
read
(*,*)
a
if
(
a
.
eq
.
3.14
)
a
=
2.
!
{
dg
-
warning
"Equality comparison"
}
print
*,
a
end