1! { dg-do compile } 2! 3! PR 59228: ICE with assumed type and ASYNCHRONOUS 4! 5! Contributed by Valery Weber <valeryweber@hotmail.com> 6 7 IMPLICIT NONE 8 9 interface 10 subroutine test(base) 11 TYPE(*), ASYNCHRONOUS :: base 12 end subroutine 13 end interface 14 15CONTAINS 16 17 SUBROUTINE foo ( data ) 18 REAL, DIMENSION( : ), ASYNCHRONOUS :: data 19 CALL test ( data ) ! { dg-error "Rank mismatch in argument" } 20 END SUBROUTINE 21 22END 23