OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/15754 (Accepts assignment of the form P = NULL()) 

fortran/
PR fortran/15754
* expr.c (gfc_check_assign): Print ranks if incompatible. Issue
warning if assigning NULL().

testsuite/
PR fortran/17574
* gfortran.dg/pr15754.f90: New test.
the changes to expr.c were accidentally committed previously

From-SVN: r84521
This commit is contained in:
Tobias Schlüter 2004-07-11 18:58:48 +02:00 committed by Tobias Schlüter
parent 5f0bbc1b07
commit f23c56270e
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -17,6 +17,10 @@
* primary.c (match_boz_constant): Call gfc_notify_std only if
we actually have a non-standard boz-literal-constant.
PR fortran/15754
* expr.c (gfc_check_assign): Print ranks if incompatible. Issue
warning if assigning NULL().
2004-07-11 Joseph S. Myers <jsm@polyomino.org.uk>
* f95-lang.c (set_block): Remove.

7
gcc/testsuite/gfortran.dg/pr15754.f90 Normal file
View File

@ -0,0 +1,7 @@
! we didn't give a warning if the RHS of an assignment was NULL
! { dg-do-compile }
INTEGER, POINTER :: P
I = NULL() ! { dg-warning "NULL appears" "Assignment non-pointer = NULL" }
P = NULL() ! { dg-warning "NULL appears" "Assignment pointer = NULL" }
P => NULL()
END