gcc/testsuite/gfortran.dg/coarray_48.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fcoarray=lib" }
   3 !
   4 ! Fix for P99818 in which wrong code caused an ICE.
   5 !
   6 ! Contributed by Gerhard Steinmetz <gscfq@t-online.de>
   7 !
   8 module m
   9    type t
  10       integer :: a
  11    contains
  12       procedure :: s
  13    end type
  14 contains
  15    subroutine s(x)
  16       class(t) :: x[*]
  17    end
  18 end
  19 program p
  20    use m
  21    associate (y => t(1))
  22       call y%s           ! { dg-error "must be a coarray" }
  23    end associate
  24 end