Message ID | 5546663F.3080908@netcologne.de |
---|---|
State | New |
Headers | show |
Index: gfortran.dg/bound_9.f90 =================================================================== --- gfortran.dg/bound_9.f90 (Revision 222661) +++ gfortran.dg/bound_9.f90 (Arbeitskopie) @@ -54,6 +54,7 @@ call foo(empty, a(2:0), n, m) if (n .ne. 1 .or. m .ne. 1) call abort allocate (x(0)) + y => a(3:2) call bar (x, y, n, m) if (n .ne. 1 .or. m .ne. 1) call abort