@@ -19,8 +19,7 @@ module m
1919 integer :: x
2020 integer :: y
2121 end type
22-
23-
22+
2423 integer :: i
2524 real :: r
2625 type (t1) :: x1, y1
@@ -32,7 +31,6 @@ module m
3231 class(t1), allocatable :: a1
3332 class(t3), allocatable :: a3
3433
35-
3634 logical :: t1_1 = same_type_as(x1, x1)
3735 logical :: t1_2 = same_type_as(x1, y1)
3836 logical :: t1_3 = same_type_as(x24, x24)
@@ -52,7 +50,7 @@ module m
5250 logical :: t1_12 = same_type_as(r, r)
5351 ! ERROR: Actual argument for 'a=' has bad type 'INTEGER(4)', expected extensible derived or unlimited polymorphic type
5452 logical :: t1_13 = same_type_as(i, t)
55-
53+
5654 logical :: t2_1 = extends_type_of(x1, y1)
5755 logical :: t2_2 = extends_type_of(x24, x24)
5856 logical :: t2_3 = extends_type_of(x24, y24)
@@ -68,4 +66,3 @@ module m
6866 ! ERROR: Actual argument for 'mold=' has bad type 't5', expected extensible derived or unlimited polymorphic type
6967 logical :: t2_11 = extends_type_of(x1, x5)
7068end module
71-
0 commit comments