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