[Bug fortran/89363] RANK incorrect for unallocated allocatable

[dominiq at lps dot ens.fr]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89363

Dominique d'Humieres <dominiq at lps dot ens.fr> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |NEW
   Last reconfirmed|                            |2019-02-19
     Ever confirmed|0                           |1

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
With 8.2.0 and trunk (9.0) I get

 FAIL procr           1 F

and from at least 4.8 up to 7.4, I get

 FAIL procr           0 F

Note that if I add

  print *, rank(x)

before

  call procr(x,flag)

I get 2.