Sign in
gnu
/
gcc
/
e31ae982c446804d1b259554203401392b078364
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
wextra_1.f
blob: 0eb28e1999937fcd7e998763a49b2b749e977ab4 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-Wall -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