[thirdparty/gcc.git] / gcc / fortran / doc / gfortran / intrinsic-procedures / sametypeas.rst

..
  Copyright 1988-2022 Free Software Foundation, Inc.
  This is part of the GCC manual.
  For copying conditions, see the copyright.rst file.

.. index:: SAME_TYPE_AS

.. _same_type_as:

SAME_TYPE_AS ---  Query dynamic types for equality
**************************************************

.. function:: SAME_TYPE_AS(A, B)

  Query dynamic types for equality.

  :param A:
    Shall be an object of extensible declared type or
    unlimited polymorphic.

  :param B:
    Shall be an object of extensible declared type or
    unlimited polymorphic.

  :return:
    The return value is a scalar of type default logical. It is true if and
    only if the dynamic type of A is the same as the dynamic type of B.

  Standard:
    Fortran 2003 and later

  Class:
    Inquiry function

  Syntax:
    .. code-block:: fortran

      RESULT = SAME_TYPE_AS(A, B)

  See also:
    :ref:`EXTENDS_TYPE_OF`
Commit	Line	Data
c63539ff ML	1	..
	2	Copyright 1988-2022 Free Software Foundation, Inc.
	3	This is part of the GCC manual.
	4	For copying conditions, see the copyright.rst file.
	5
	6	.. index:: SAME_TYPE_AS
	7
	8	.. _same_type_as:
	9
	10	SAME_TYPE_AS --- Query dynamic types for equality
	11	**************************************************
	12
	13	.. function:: SAME_TYPE_AS(A, B)
	14
	15	Query dynamic types for equality.
	16
	17	:param A:
	18	Shall be an object of extensible declared type or
	19	unlimited polymorphic.
	20
	21	:param B:
	22	Shall be an object of extensible declared type or
	23	unlimited polymorphic.
	24
	25	:return:
	26	The return value is a scalar of type default logical. It is true if and
	27	only if the dynamic type of A is the same as the dynamic type of B.
	28
	29	Standard:
	30	Fortran 2003 and later
	31
	32	Class:
	33	Inquiry function
	34
	35	Syntax:
	36	.. code-block:: fortran
	37
	38	RESULT = SAME_TYPE_AS(A, B)
	39
	40	See also:
3ed1b4ce	41	:ref:`EXTENDS_TYPE_OF`