Differential D88613 Diff 295428 flang/test/Semantics/resolve32.f90

Changeset View

Standalone View

Show First 20 Lines • Show All 51 Lines • ▼ Show 20 Lines	contains
!ERROR: 'bar' must be an abstract interface or a procedure with an explicit interface		!ERROR: 'bar' must be an abstract interface or a procedure with an explicit interface
procedure(bar), nopass, deferred :: h		procedure(bar), nopass, deferred :: h
end type		end type
type t2		type t2
integer :: i		integer :: i
contains		contains
procedure, nopass :: b => s		procedure, nopass :: b => s
final :: f		final :: f
!ERROR: Type parameter, component, or procedure binding 'i' already defined in this type		!ERROR: FINAL subroutine 'i' of derived type 't2' must be a module procedure
final :: i		final :: i
end type		end type
type t3		type t3
contains		contains
private		private
procedure, nopass :: b => s		procedure, nopass :: b => s
procedure, nopass, public :: f		procedure, nopass, public :: f
end type		end type
contains		contains
subroutine s		subroutine s
end		end
subroutine f(x)		subroutine f(x)
type(t2) :: x		type(t2) :: x
end		end
end module		end module