gcc/testsuite/gfortran.dg/asynchronous_4.f90

   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
  15 CONTAINS
  16
  17   SUBROUTINE foo ( data )
  18     REAL, DIMENSION( : ), ASYNCHRONOUS :: data
  19     CALL test ( data )                ! { dg-error "Rank mismatch in argument" }
  20   END SUBROUTINE
  21
  22 END