To: J3                                                     J3/20-100
From:    Vipul S. Parekh
Subject: Editorial fix to Example for GET_ENVIRONMENT_VARIABLE intrinsic
Date: 2020-January-23
References: 18-007r1

18-007r1 document in section 16.9.84 GET_ENVIRONMENT_VARIABLE on page
374, in paragraph 5 under the Example shows an incorrect code snippet

The following edit is proposed.

[374:29-30]
Change
   IF (LENGTH>0) THEN
     ALLOCATE(CHARACTER(LENGTH) :: FILENAME)

to
   IF (NAMELEN > 0) THEN
     ALLOCATE(CHARACTER(NAMELEN) :: FILENAME)