2 ! This tests the patch for PR29098, in which the presence of the default
3 ! initializer would cause allocate to fail because the latter uses
4 ! the interface assignment. This, in its turn was failing because
5 ! no expressions were found for the other components; and a FAILURE
6 ! was returned from resolve_structure_cons.
8 ! Contributed by Olav Vahtras <vahtras@pdc.kth.se>
12 INTEGER :: R
= 0,C
= 0
15 INTEGER, DIMENSION(:), POINTER :: R
,C
16 TYPE(BAS
), POINTER, DIMENSION(:) :: NO
=> NULL()
18 INTERFACE ASSIGNMENT(=)
19 MODULE PROCEDURE BLASSIGN
22 SUBROUTINE BLASSIGN(A
,B
)
23 TYPE(BLOCK
), INTENT(IN
) :: B
24 TYPE(BLOCK
), INTENT(INOUT
) :: A
27 END SUBROUTINE BLASSIGN
36 ! { dg-final { cleanup-modules "mat" } }