Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
select_type_38.f03
blob: a643e99f01f5f32f95d0faef209f72b5d1d63b72 [
file
] [
log
] [
blame
]
type
::
t1
end
type
type
,
extends
(
t1
)
::
t2
end
type
class
(
t1
),
pointer
::
a
lab1
:
select
type
(
a
)
end
select
lab1
lab1
:
select
type
(
a
)
!
{
dg
-
error
"Duplicate construct label"
}
end
select
lab1
!
{
dg
-
error
"Expecting END PROGRAM statement"
}
end