Inquiry Intrinsic Function (Generic): Inquires whether the dynamic type of one object is the same as the dynamic type of another object.
result = SAME_TYPE_AS (a , b)
a |
(Input) Is an object of extensible type. If it is a pointer, it
must not have an undefined association status.
|
b |
(Input) Is an object of extensible type. If it is a pointer, it
must not have an undefined association status.
|
結果
The result type is default logical scalar. The
result is true only if the dynamic type of a is the same as the dynamic type of b.