https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77940
--- Comment #1 from Gerhard Steinmetz <gerhard.steinmetz.fort...@t-online.de>
---
For completeness :
$ cat y1.f90
module m
type t
end type
contains
subroutine s1(x)
type(t) :: x[*]
end
subroutine s2(x)
type(t) :: x(2)
call s1(x(1))
end
end
$ gfortran-7-20161009 -fcoarray=single y1.f90
y1.f90:10:14:
call s1(x(1))
1
Error: Actual argument to 'x' at (1) must be a coarray
