libgfortran/ChangeLog

   1 2008-01-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
   2
   3         PR libfortran/34746
   4         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Use %ld
   5         in printf format for all bounds checking; cast all
   6         integer-like arguments to runtime_error() to long int.
   7         (`m'name`'rtype_qual`_'atype_code):  Likewise.
   8         (`s'name`'rtype_qual`_'atype_code):  Likewise.
   9         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Likewise.
  10         (`m'name`'rtype_qual`_'atype_code):  Likewise.
  11         (`s'name`'rtype_qual`_'atype_code):  Likewise.
  12         * generated/all_l16.c: Regenerated.
  13         * generated/all_l4.c: Regenerated.
  14         * generated/all_l8.c: Regenerated.
  15         * generated/any_l16.c: Regenerated.
  16         * generated/any_l4.c: Regenerated.
  17         * generated/any_l8.c: Regenerated.
  18         * generated/count_16_l16.c: Regenerated.
  19         * generated/count_16_l4.c: Regenerated.
  20         * generated/count_16_l8.c: Regenerated.
  21         * generated/count_4_l16.c: Regenerated.
  22         * generated/count_4_l4.c: Regenerated.
  23         * generated/count_4_l8.c: Regenerated.
  24         * generated/count_8_l16.c: Regenerated.
  25         * generated/count_8_l4.c: Regenerated.
  26         * generated/count_8_l8.c: Regenerated.
  27         * generated/maxloc0_16_i1.c: Regenerated.
  28         * generated/maxloc0_16_i16.c: Regenerated.
  29         * generated/maxloc0_16_i2.c: Regenerated.
  30         * generated/maxloc0_16_i4.c: Regenerated.
  31         * generated/maxloc0_16_i8.c: Regenerated.
  32         * generated/maxloc0_16_r10.c: Regenerated.
  33         * generated/maxloc0_16_r16.c: Regenerated.
  34         * generated/maxloc0_16_r4.c: Regenerated.
  35         * generated/maxloc0_16_r8.c: Regenerated.
  36         * generated/maxloc0_4_i1.c: Regenerated.
  37         * generated/maxloc0_4_i16.c: Regenerated.
  38         * generated/maxloc0_4_i2.c: Regenerated.
  39         * generated/maxloc0_4_i4.c: Regenerated.
  40         * generated/maxloc0_4_i8.c: Regenerated.
  41         * generated/maxloc0_4_r10.c: Regenerated.
  42         * generated/maxloc0_4_r16.c: Regenerated.
  43         * generated/maxloc0_4_r4.c: Regenerated.
  44         * generated/maxloc0_4_r8.c: Regenerated.
  45         * generated/maxloc0_8_i1.c: Regenerated.
  46         * generated/maxloc0_8_i16.c: Regenerated.
  47         * generated/maxloc0_8_i2.c: Regenerated.
  48         * generated/maxloc0_8_i4.c: Regenerated.
  49         * generated/maxloc0_8_i8.c: Regenerated.
  50         * generated/maxloc0_8_r10.c: Regenerated.
  51         * generated/maxloc0_8_r16.c: Regenerated.
  52         * generated/maxloc0_8_r4.c: Regenerated.
  53         * generated/maxloc0_8_r8.c: Regenerated.
  54         * generated/maxloc1_16_i1.c: Regenerated.
  55         * generated/maxloc1_16_i16.c: Regenerated.
  56         * generated/maxloc1_16_i2.c: Regenerated.
  57         * generated/maxloc1_16_i4.c: Regenerated.
  58         * generated/maxloc1_16_i8.c: Regenerated.
  59         * generated/maxloc1_16_r10.c: Regenerated.
  60         * generated/maxloc1_16_r16.c: Regenerated.
  61         * generated/maxloc1_16_r4.c: Regenerated.
  62         * generated/maxloc1_16_r8.c: Regenerated.
  63         * generated/maxloc1_4_i1.c: Regenerated.
  64         * generated/maxloc1_4_i16.c: Regenerated.
  65         * generated/maxloc1_4_i2.c: Regenerated.
  66         * generated/maxloc1_4_i4.c: Regenerated.
  67         * generated/maxloc1_4_i8.c: Regenerated.
  68         * generated/maxloc1_4_r10.c: Regenerated.
  69         * generated/maxloc1_4_r16.c: Regenerated.
  70         * generated/maxloc1_4_r4.c: Regenerated.
  71         * generated/maxloc1_4_r8.c: Regenerated.
  72         * generated/maxloc1_8_i1.c: Regenerated.
  73         * generated/maxloc1_8_i16.c: Regenerated.
  74         * generated/maxloc1_8_i2.c: Regenerated.
  75         * generated/maxloc1_8_i4.c: Regenerated.
  76         * generated/maxloc1_8_i8.c: Regenerated.
  77         * generated/maxloc1_8_r10.c: Regenerated.
  78         * generated/maxloc1_8_r16.c: Regenerated.
  79         * generated/maxloc1_8_r4.c: Regenerated.
  80         * generated/maxloc1_8_r8.c: Regenerated.
  81         * generated/maxval_i1.c: Regenerated.
  82         * generated/maxval_i16.c: Regenerated.
  83         * generated/maxval_i2.c: Regenerated.
  84         * generated/maxval_i4.c: Regenerated.
  85         * generated/maxval_i8.c: Regenerated.
  86         * generated/maxval_r10.c: Regenerated.
  87         * generated/maxval_r16.c: Regenerated.
  88         * generated/maxval_r4.c: Regenerated.
  89         * generated/maxval_r8.c: Regenerated.
  90         * generated/minloc0_16_i1.c: Regenerated.
  91         * generated/minloc0_16_i16.c: Regenerated.
  92         * generated/minloc0_16_i2.c: Regenerated.
  93         * generated/minloc0_16_i4.c: Regenerated.
  94         * generated/minloc0_16_i8.c: Regenerated.
  95         * generated/minloc0_16_r10.c: Regenerated.
  96         * generated/minloc0_16_r16.c: Regenerated.
  97         * generated/minloc0_16_r4.c: Regenerated.
  98         * generated/minloc0_16_r8.c: Regenerated.
  99         * generated/minloc0_4_i1.c: Regenerated.
 100         * generated/minloc0_4_i16.c: Regenerated.
 101         * generated/minloc0_4_i2.c: Regenerated.
 102         * generated/minloc0_4_i4.c: Regenerated.
 103         * generated/minloc0_4_i8.c: Regenerated.
 104         * generated/minloc0_4_r10.c: Regenerated.
 105         * generated/minloc0_4_r16.c: Regenerated.
 106         * generated/minloc0_4_r4.c: Regenerated.
 107         * generated/minloc0_4_r8.c: Regenerated.
 108         * generated/minloc0_8_i1.c: Regenerated.
 109         * generated/minloc0_8_i16.c: Regenerated.
 110         * generated/minloc0_8_i2.c: Regenerated.
 111         * generated/minloc0_8_i4.c: Regenerated.
 112         * generated/minloc0_8_i8.c: Regenerated.
 113         * generated/minloc0_8_r10.c: Regenerated.
 114         * generated/minloc0_8_r16.c: Regenerated.
 115         * generated/minloc0_8_r4.c: Regenerated.
 116         * generated/minloc0_8_r8.c: Regenerated.
 117         * generated/minloc1_16_i1.c: Regenerated.
 118         * generated/minloc1_16_i16.c: Regenerated.
 119         * generated/minloc1_16_i2.c: Regenerated.
 120         * generated/minloc1_16_i4.c: Regenerated.
 121         * generated/minloc1_16_i8.c: Regenerated.
 122         * generated/minloc1_16_r10.c: Regenerated.
 123         * generated/minloc1_16_r16.c: Regenerated.
 124         * generated/minloc1_16_r4.c: Regenerated.
 125         * generated/minloc1_16_r8.c: Regenerated.
 126         * generated/minloc1_4_i1.c: Regenerated.
 127         * generated/minloc1_4_i16.c: Regenerated.
 128         * generated/minloc1_4_i2.c: Regenerated.
 129         * generated/minloc1_4_i4.c: Regenerated.
 130         * generated/minloc1_4_i8.c: Regenerated.
 131         * generated/minloc1_4_r10.c: Regenerated.
 132         * generated/minloc1_4_r16.c: Regenerated.
 133         * generated/minloc1_4_r4.c: Regenerated.
 134         * generated/minloc1_4_r8.c: Regenerated.
 135         * generated/minloc1_8_i1.c: Regenerated.
 136         * generated/minloc1_8_i16.c: Regenerated.
 137         * generated/minloc1_8_i2.c: Regenerated.
 138         * generated/minloc1_8_i4.c: Regenerated.
 139         * generated/minloc1_8_i8.c: Regenerated.
 140         * generated/minloc1_8_r10.c: Regenerated.
 141         * generated/minloc1_8_r16.c: Regenerated.
 142         * generated/minloc1_8_r4.c: Regenerated.
 143         * generated/minloc1_8_r8.c: Regenerated.
 144         * generated/minval_i1.c: Regenerated.
 145         * generated/minval_i16.c: Regenerated.
 146         * generated/minval_i2.c: Regenerated.
 147         * generated/minval_i4.c: Regenerated.
 148         * generated/minval_i8.c: Regenerated.
 149         * generated/minval_r10.c: Regenerated.
 150         * generated/minval_r16.c: Regenerated.
 151         * generated/minval_r4.c: Regenerated.
 152         * generated/minval_r8.c: Regenerated.
 153         * generated/product_c10.c: Regenerated.
 154         * generated/product_c16.c: Regenerated.
 155         * generated/product_c4.c: Regenerated.
 156         * generated/product_c8.c: Regenerated.
 157         * generated/product_i1.c: Regenerated.
 158         * generated/product_i16.c: Regenerated.
 159         * generated/product_i2.c: Regenerated.
 160         * generated/product_i4.c: Regenerated.
 161         * generated/product_i8.c: Regenerated.
 162         * generated/product_r10.c: Regenerated.
 163         * generated/product_r16.c: Regenerated.
 164         * generated/product_r4.c: Regenerated.
 165         * generated/product_r8.c: Regenerated.
 166         * generated/sum_c10.c: Regenerated.
 167         * generated/sum_c16.c: Regenerated.
 168         * generated/sum_c4.c: Regenerated.
 169         * generated/sum_c8.c: Regenerated.
 170         * generated/sum_i1.c: Regenerated.
 171         * generated/sum_i16.c: Regenerated.
 172         * generated/sum_i2.c: Regenerated.
 173         * generated/sum_i4.c: Regenerated.
 174         * generated/sum_i8.c: Regenerated.
 175         * generated/sum_r10.c: Regenerated.
 176         * generated/sum_r16.c: Regenerated.
 177         * generated/sum_r4.c: Regenerated.
 178         * generated/sum_r8.c: Regenerated.
 179
 180 2008-01-11  Thomas Koenig  <tkoenig@gcc.gnu.org>
 181
 182         PR libfortran/34670
 183         * m4/iparm.m4 (upcase):  New macro (copied from the m4 manual).
 184         (u_name):  New macro for the upper case name of the intrinsic.
 185         * m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Add
 186         bounds checking and rank check, depending on
 187         compile_options.bounds_check.
 188         (`m'name`'rtype_qual`_'atype_code):  Likewise.
 189         (`s'name`'rtype_qual`_'atype_code):  Likewise.
 190         * m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Add
 191         bounds checking and rank check, depending on
 192         compile_options.bounds_check.
 193         (`m'name`'rtype_qual`_'atype_code):  Likewise.
 194         (`s'name`'rtype_qual`_'atype_code):  Likewise.
 195         * generated/all_l16.c: Regenerated.
 196         * generated/all_l4.c: Regenerated.
 197         * generated/all_l8.c: Regenerated.
 198         * generated/any_l16.c: Regenerated.
 199         * generated/any_l4.c: Regenerated.
 200         * generated/any_l8.c: Regenerated.
 201         * generated/count_16_l16.c: Regenerated.
 202         * generated/count_16_l4.c: Regenerated.
 203         * generated/count_16_l8.c: Regenerated.
 204         * generated/count_4_l16.c: Regenerated.
 205         * generated/count_4_l4.c: Regenerated.
 206         * generated/count_4_l8.c: Regenerated.
 207         * generated/count_8_l16.c: Regenerated.
 208         * generated/count_8_l4.c: Regenerated.
 209         * generated/count_8_l8.c: Regenerated.
 210         * generated/maxloc0_16_i1.c: Regenerated.
 211         * generated/maxloc0_16_i16.c: Regenerated.
 212         * generated/maxloc0_16_i2.c: Regenerated.
 213         * generated/maxloc0_16_i4.c: Regenerated.
 214         * generated/maxloc0_16_i8.c: Regenerated.
 215         * generated/maxloc0_16_r10.c: Regenerated.
 216         * generated/maxloc0_16_r16.c: Regenerated.
 217         * generated/maxloc0_16_r4.c: Regenerated.
 218         * generated/maxloc0_16_r8.c: Regenerated.
 219         * generated/maxloc0_4_i1.c: Regenerated.
 220         * generated/maxloc0_4_i16.c: Regenerated.
 221         * generated/maxloc0_4_i2.c: Regenerated.
 222         * generated/maxloc0_4_i4.c: Regenerated.
 223         * generated/maxloc0_4_i8.c: Regenerated.
 224         * generated/maxloc0_4_r10.c: Regenerated.
 225         * generated/maxloc0_4_r16.c: Regenerated.
 226         * generated/maxloc0_4_r4.c: Regenerated.
 227         * generated/maxloc0_4_r8.c: Regenerated.
 228         * generated/maxloc0_8_i1.c: Regenerated.
 229         * generated/maxloc0_8_i16.c: Regenerated.
 230         * generated/maxloc0_8_i2.c: Regenerated.
 231         * generated/maxloc0_8_i4.c: Regenerated.
 232         * generated/maxloc0_8_i8.c: Regenerated.
 233         * generated/maxloc0_8_r10.c: Regenerated.
 234         * generated/maxloc0_8_r16.c: Regenerated.
 235         * generated/maxloc0_8_r4.c: Regenerated.
 236         * generated/maxloc0_8_r8.c: Regenerated.
 237         * generated/maxloc1_16_i1.c: Regenerated.
 238         * generated/maxloc1_16_i16.c: Regenerated.
 239         * generated/maxloc1_16_i2.c: Regenerated.
 240         * generated/maxloc1_16_i4.c: Regenerated.
 241         * generated/maxloc1_16_i8.c: Regenerated.
 242         * generated/maxloc1_16_r10.c: Regenerated.
 243         * generated/maxloc1_16_r16.c: Regenerated.
 244         * generated/maxloc1_16_r4.c: Regenerated.
 245         * generated/maxloc1_16_r8.c: Regenerated.
 246         * generated/maxloc1_4_i1.c: Regenerated.
 247         * generated/maxloc1_4_i16.c: Regenerated.
 248         * generated/maxloc1_4_i2.c: Regenerated.
 249         * generated/maxloc1_4_i4.c: Regenerated.
 250         * generated/maxloc1_4_i8.c: Regenerated.
 251         * generated/maxloc1_4_r10.c: Regenerated.
 252         * generated/maxloc1_4_r16.c: Regenerated.
 253         * generated/maxloc1_4_r4.c: Regenerated.
 254         * generated/maxloc1_4_r8.c: Regenerated.
 255         * generated/maxloc1_8_i1.c: Regenerated.
 256         * generated/maxloc1_8_i16.c: Regenerated.
 257         * generated/maxloc1_8_i2.c: Regenerated.
 258         * generated/maxloc1_8_i4.c: Regenerated.
 259         * generated/maxloc1_8_i8.c: Regenerated.
 260         * generated/maxloc1_8_r10.c: Regenerated.
 261         * generated/maxloc1_8_r16.c: Regenerated.
 262         * generated/maxloc1_8_r4.c: Regenerated.
 263         * generated/maxloc1_8_r8.c: Regenerated.
 264         * generated/maxval_i1.c: Regenerated.
 265         * generated/maxval_i16.c: Regenerated.
 266         * generated/maxval_i2.c: Regenerated.
 267         * generated/maxval_i4.c: Regenerated.
 268         * generated/maxval_i8.c: Regenerated.
 269         * generated/maxval_r10.c: Regenerated.
 270         * generated/maxval_r16.c: Regenerated.
 271         * generated/maxval_r4.c: Regenerated.
 272         * generated/maxval_r8.c: Regenerated.
 273         * generated/minloc0_16_i1.c: Regenerated.
 274         * generated/minloc0_16_i16.c: Regenerated.
 275         * generated/minloc0_16_i2.c: Regenerated.
 276         * generated/minloc0_16_i4.c: Regenerated.
 277         * generated/minloc0_16_i8.c: Regenerated.
 278         * generated/minloc0_16_r10.c: Regenerated.
 279         * generated/minloc0_16_r16.c: Regenerated.
 280         * generated/minloc0_16_r4.c: Regenerated.
 281         * generated/minloc0_16_r8.c: Regenerated.
 282         * generated/minloc0_4_i1.c: Regenerated.
 283         * generated/minloc0_4_i16.c: Regenerated.
 284         * generated/minloc0_4_i2.c: Regenerated.
 285         * generated/minloc0_4_i4.c: Regenerated.
 286         * generated/minloc0_4_i8.c: Regenerated.
 287         * generated/minloc0_4_r10.c: Regenerated.
 288         * generated/minloc0_4_r16.c: Regenerated.
 289         * generated/minloc0_4_r4.c: Regenerated.
 290         * generated/minloc0_4_r8.c: Regenerated.
 291         * generated/minloc0_8_i1.c: Regenerated.
 292         * generated/minloc0_8_i16.c: Regenerated.
 293         * generated/minloc0_8_i2.c: Regenerated.
 294         * generated/minloc0_8_i4.c: Regenerated.
 295         * generated/minloc0_8_i8.c: Regenerated.
 296         * generated/minloc0_8_r10.c: Regenerated.
 297         * generated/minloc0_8_r16.c: Regenerated.
 298         * generated/minloc0_8_r4.c: Regenerated.
 299         * generated/minloc0_8_r8.c: Regenerated.
 300         * generated/minloc1_16_i1.c: Regenerated.
 301         * generated/minloc1_16_i16.c: Regenerated.
 302         * generated/minloc1_16_i2.c: Regenerated.
 303         * generated/minloc1_16_i4.c: Regenerated.
 304         * generated/minloc1_16_i8.c: Regenerated.
 305         * generated/minloc1_16_r10.c: Regenerated.
 306         * generated/minloc1_16_r16.c: Regenerated.
 307         * generated/minloc1_16_r4.c: Regenerated.
 308         * generated/minloc1_16_r8.c: Regenerated.
 309         * generated/minloc1_4_i1.c: Regenerated.
 310         * generated/minloc1_4_i16.c: Regenerated.
 311         * generated/minloc1_4_i2.c: Regenerated.
 312         * generated/minloc1_4_i4.c: Regenerated.
 313         * generated/minloc1_4_i8.c: Regenerated.
 314         * generated/minloc1_4_r10.c: Regenerated.
 315         * generated/minloc1_4_r16.c: Regenerated.
 316         * generated/minloc1_4_r4.c: Regenerated.
 317         * generated/minloc1_4_r8.c: Regenerated.
 318         * generated/minloc1_8_i1.c: Regenerated.
 319         * generated/minloc1_8_i16.c: Regenerated.
 320         * generated/minloc1_8_i2.c: Regenerated.
 321         * generated/minloc1_8_i4.c: Regenerated.
 322         * generated/minloc1_8_i8.c: Regenerated.
 323         * generated/minloc1_8_r10.c: Regenerated.
 324         * generated/minloc1_8_r16.c: Regenerated.
 325         * generated/minloc1_8_r4.c: Regenerated.
 326         * generated/minloc1_8_r8.c: Regenerated.
 327         * generated/minval_i1.c: Regenerated.
 328         * generated/minval_i16.c: Regenerated.
 329         * generated/minval_i2.c: Regenerated.
 330         * generated/minval_i4.c: Regenerated.
 331         * generated/minval_i8.c: Regenerated.
 332         * generated/minval_r10.c: Regenerated.
 333         * generated/minval_r16.c: Regenerated.
 334         * generated/minval_r4.c: Regenerated.
 335         * generated/minval_r8.c: Regenerated.
 336         * generated/product_c10.c: Regenerated.
 337         * generated/product_c16.c: Regenerated.
 338         * generated/product_c4.c: Regenerated.
 339         * generated/product_c8.c: Regenerated.
 340         * generated/product_i1.c: Regenerated.
 341         * generated/product_i16.c: Regenerated.
 342         * generated/product_i2.c: Regenerated.
 343         * generated/product_i4.c: Regenerated.
 344         * generated/product_i8.c: Regenerated.
 345         * generated/product_r10.c: Regenerated.
 346         * generated/product_r16.c: Regenerated.
 347         * generated/product_r4.c: Regenerated.
 348         * generated/product_r8.c: Regenerated.
 349         * generated/sum_c10.c: Regenerated.
 350         * generated/sum_c16.c: Regenerated.
 351         * generated/sum_c4.c: Regenerated.
 352         * generated/sum_c8.c: Regenerated.
 353         * generated/sum_i1.c: Regenerated.
 354         * generated/sum_i16.c: Regenerated.
 355         * generated/sum_i2.c: Regenerated.
 356         * generated/sum_i4.c: Regenerated.
 357         * generated/sum_i8.c: Regenerated.
 358         * generated/sum_r10.c: Regenerated.
 359         * generated/sum_r16.c: Regenerated.
 360         * generated/sum_r4.c: Regenerated.
 361         * generated/sum_r8.c: Regenerated.
 362
 363 2008-01-05  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 364
 365         PR libfortran/34676
 366         * io/list_read.c (next_char): Only save the EOF condition for later if
 367         advance="no".
 368
 369 2008-01-03  Thomas Koenig  <tkoenig@gcc.gnu.org>
 370
 371         PR libfortran/34565
 372         * io/io.h:  Adjust protoypes for open_internal(),
 373         next_array_record() and init_loop_spec().
 374         * io/list_read.c (next_char):  Use argument "finished"
 375         of next_array_record to check for end on internal file.
 376         * io/unit.c:  Calculate the offset for an array
 377         internal file and supply this informatin to open_internal().
 378         * io/unix.c (open_internal):  Set the offset for the internal
 379         file on open.
 380         * io/transfer.c (init_loop_spec):  Calculate the starting
 381         record in case of negative strides.  Return size of 0 for
 382         an empty array.
 383         (next_array_record):  Use an extra flag to signal that the
 384         array is finished.
 385         (next_record_r):  Use the new flag to next_array_record().
 386         (next_record_w):  Likewise.