[Bug fortran/25051] ranks do not match in pointer assignment

[fxcoudert at gcc dot gnu dot org]

------- Comment #1 from fxcoudert at gcc dot gnu dot org  2005-11-26 19:07 -------
gfortran doesn't see this code is invalid.

## g95 ##
In file foo.f90:3

a=>NULL(i)
       1
Error: Unequal ranks in pointer assignment at (1) (1/2)
## Intel ##
fortcom: Error: foo.f90, line 3: The rank of the target is different from the
pointer   [A]
a=>NULL(i)
^
compilation aborted for foo.f90 (code 1)
## Portland ##
PGF90-S-0155-Illegal POINTER assignment - rank mismatch (foo.f90: 3)
  0 inform,   0 warnings,   1 severes, 0 fatal for MAIN
## Sun ##

a=>NULL(i)
 ^
"foo.f90", Line = 3, Column = 2: ERROR: The target in a pointer assignment
statement must have the same rank as the pointer.


-- 

fxcoudert at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |NEW
     Ever Confirmed|0                           |1
           Keywords|                            |accepts-invalid
   Last reconfirmed|0000-00-00 00:00:00         |2005-11-26 19:07:11
               date|                            |
            Summary|better diagnostic needed    |ranks do not match in
                   |                            |pointer assignment


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25051