16 lines
484 B
Fortran
16 lines
484 B
Fortran
! { dg-do compile }
|
|
program demo_setval
|
|
call setval(value)
|
|
write(*,*)'VALUE=',value
|
|
contains
|
|
subroutine setval(value)
|
|
class(*),intent(in) :: value
|
|
select type(value)
|
|
type is (integer)
|
|
value = 10 ! { dg-error "in variable definition context" }
|
|
type is (real)
|
|
value = 10.20 ! { dg-error "in variable definition context" }
|
|
end select
|
|
end subroutine setval
|
|
end program demo_setval
|