2 ! { dg-additional-sources assumed_rank_8_c.c }
6 ! Scalars to assumed-rank tests
28 class(t
), allocatable
, target
:: yac
38 if (j
/= 2) call abort ()
46 if (j
/= 2) call abort ()
53 if (j
/= 1) call abort ()
60 if (j
/= 2) call abort ()
68 if (j
/= 2) call abort ()
75 if (j
/= 1) call abort ()
80 class(t
), optional
:: x(..)
82 if (.not
. present (x
)) return
83 if (.not
. SAME_TYPE_AS (x
, yac
)) call abort ()
84 if (rank (x
) /= 0) call abort
90 class(t
), pointer, intent(in
) :: x(..)
92 if (.not
. associated (x
)) return
93 if (.not
. SAME_TYPE_AS (x
, yac
)) call abort ()
94 if (rank (x
) /= 0) call abort ()
100 class(t
), allocatable
:: x(..)
102 if (.not
. allocated (x
)) return
103 if (.not
. SAME_TYPE_AS (x
, yac
)) call abort ()
104 if (rank (x
) /= 0) call abort
110 type(t
), optional
:: x(..)
112 if (.not
. present (x
)) return
113 if (.not
. SAME_TYPE_AS (x
, yac
)) call abort ()
114 if (rank (x
) /= 0) call abort
120 type(t
), pointer, intent(in
) :: x(..)
122 if (.not
. associated (x
)) return
123 if (.not
. SAME_TYPE_AS (x
, yac
)) call abort ()
124 if (rank (x
) /= 0) call abort ()
130 type(t
), allocatable
:: x(..)
132 if (.not
. allocated (x
)) return
133 if (.not
. SAME_TYPE_AS (x
, yac
)) call abort ()
134 if (rank (x
) /= 0) call abort