2 ! { dg-additional-sources assumed_rank_8_c.c }
6 ! Scalars to assumed-rank tests
28 class(t
), allocatable
, target
:: yac
80 class(t
), optional
:: x(..)
82 if (.not
. present (x
)) return
83 if (.not
. SAME_TYPE_AS (x
, yac
)) STOP 7
84 if (rank (x
) /= 0) STOP 1
90 class(t
), pointer, intent(in
) :: x(..)
92 if (.not
. associated (x
)) return
93 if (.not
. SAME_TYPE_AS (x
, yac
)) STOP 8
94 if (rank (x
) /= 0) STOP 9
100 class(t
), allocatable
:: x(..)
102 if (.not
. allocated (x
)) return
103 if (.not
. SAME_TYPE_AS (x
, yac
)) STOP 10
104 if (rank (x
) /= 0) STOP 2
110 type(t
), optional
:: x(..)
112 if (.not
. present (x
)) return
113 if (.not
. SAME_TYPE_AS (x
, yac
)) STOP 11
114 if (rank (x
) /= 0) STOP 3
120 type(t
), pointer, intent(in
) :: x(..)
122 if (.not
. associated (x
)) return
123 if (.not
. SAME_TYPE_AS (x
, yac
)) STOP 12
124 if (rank (x
) /= 0) STOP 13
130 type(t
), allocatable
:: x(..)
132 if (.not
. allocated (x
)) return
133 if (.not
. SAME_TYPE_AS (x
, yac
)) STOP 14
134 if (rank (x
) /= 0) STOP 4