\documentclass[memo]{j3}
\renewcommand{\hdate}{13 November 2006}
\renewcommand{\vers}{J3/06-375}
\usepackage{lineno}
\usepackage{longtable}
\usepackage{xr}
\externaldocument{007}
\input txtest
\input pdftest
\begin{document}
\vspace*{-30pt}
\begin{tabbing}
Subject: \hspace*{0.25in}\=Correct a defect in intrinsic assignment\\
From: \>Van Snyder\\
\end{tabbing}
\vspace*{-20pt}
\section{Introduction}
Suppose one has
{\tt\begin{verbatim}
real, allocatable :: A(:)
integer, allocatable :: B(:)
allocate ( a(10), b(5) )
b = 42
a = b
\end{verbatim}}
According to [158:21], A is deallocated before the assignment because the
shapes differ, and then according to [158:26] it is allocated with
type integer. This is clearly absurd. At least in 06-007r1 the qualifier
``the variable is polymorphic and'' was inserted before ``the dynamic'' at
[158:29], but this doesn't solve the problem of trying to allocate A with
type integer.
\edits{06-007r1}\label{edits}
\stdref{158:26}[Editor: Insert ``, if the variable is polymorphic,''
before ``with''.]
\label{lastpage}
\end{document}