Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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