Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr91959.f90
blob: 788b413c447a2dc908243d9a1044d7d2de32b0c1 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
91959
!
Code
contributed
by
Gerhard
Steinmetz
program p
implicit
none
integer
::
%
a
!
{
dg
-
error
"Invalid character"
}
a
=
1
!
{
dg
-
error
"has no IMPLICIT type"
}
print
*,
a
end