(j3.2006) Another problem with specification expressions

[Bill Long]

Converted into a runnable program:

program t
call s
end

  subroutine s
   integer,save :: B[2,2:*]
   integer      :: C(lcobound(b,1):ucobound(b,1))
   integer      :: D(lcobound(b,2):ucobound(b,2))

   print *, ucobound(B), ubound(C), ubound(D)

end subroutine S

it seems to execute fine for me.  The output depends on how many images 
are specified.

Cheers,
Bill


On 6/19/13 3:53 PM, Van Snyder wrote:
> I think the upper bound specification for D is illegal, but I can't find
> where it's prohibited, at least not in 7.1.11:
>
> subroutine S
>    integer :: B[2,2:*]
>    integer :: C(lcobound(b,1):ucobound(b,1))
>    integer :: D(lcobound(b,2):ucobound(b,2))
> end function S
>
> This ought to be prohibited in 7.1.11p2(9)(b), similarly to
> 7.1.11p2(9)(b)(i).
>
> Is an interp needed?
>
>
> _______________________________________________
> J3 mailing list
> J3 at mailman.j3-fortran.org
> http://mailman.j3-fortran.org/mailman/listinfo/j3
>

-- 
Bill Long                                           longb at cray.com
Fortran Technical Support    &                 voice: 651-605-9024
Bioinformatics Software Development            fax:   651-605-9142
Cray Inc./Cray Plaza, Suite 210/380 Jackson St./St. Paul, MN 55101