re PR fortran/33297 (SIZE intrinsic crashes gfortran on invalid usage)
authorTobias Burnus <burnus@net-b.de>
Wed, 12 Sep 2007 10:30:22 +0000 (12:30 +0200)
committerTobias Burnus <burnus@gcc.gnu.org>
Wed, 12 Sep 2007 10:30:22 +0000 (12:30 +0200)
commit7ab886543206b714b7e90e447446c0128d7638cb
tree92f48b1eeaac17f8cfaab5a4bf50c5d21fd6b71e
parenta1dde7d41c18eccd347c996c282423a6b0056efd
re PR fortran/33297 (SIZE intrinsic crashes gfortran on invalid usage)

2007-09-12  Tobias Burnus  <burnus@net-b.de>

PR fortran/33297
* check.c (scalar_check): Move up in the file.
(kind_check): Call scalar_check.
(dim_check): If optional, do not call nonoptional_check; use
bool for optional.
(gfc_check_all_any,gfc_check_count,gfc_check_cshift,gfc_check_eoshift,
gfc_check_lbound,gfc_check_minloc_maxloc,check_reduction,
gfc_check_spread,gfc_check_ubound): Use true/false instead of 0/1
for dim_check; honor changed meaning of optional.
(gfc_check_int): Replace checks by kind_check.
(gfc_check_size): Replace checks by dim_check.

2007-09-12  Tobias Burnus  <burnus@net-b.de>

PR fortran/33297
* gfortran.dg/intrinsic_size.f90: New.

From-SVN: r128424
gcc/fortran/ChangeLog
gcc/fortran/check.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/intrinsic_size.f90 [new file with mode: 0644]