diff options
189 files changed, 1100 insertions, 2714 deletions
diff --git a/gcc/testsuite/gfortran.dg/bound_11.f90 b/gcc/testsuite/gfortran.dg/bound_11.f90 new file mode 100644 index 0000000..170eba4 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/bound_11.f90 @@ -0,0 +1,588 @@ +! { dg-do run } +! +! PR fortran/112371 +! The library used to incorrectly set an extent of zero for the first +! dimension of the resulting array of a reduction function if that array was +! empty. + +program p + implicit none + call check_iparity + call check_sum + call check_minloc_int + call check_minloc_char + call check_maxloc_char4 + call check_minval_char + call check_maxval_char4 + call check_any + call check_count4 + call check_findloc_int + call check_findloc_char +contains + subroutine check_iparity + integer :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + integer, allocatable :: r(:,:,:) + a = reshape((/ integer:: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = iparity(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 111 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 112 + i = 2 + r = iparity(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 113 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 114 + i = 3 + r = iparity(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 115 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 116 + i = 4 + r = iparity(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 117 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 118 + i = 1 + r = iparity(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 121 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 122 + i = 2 + r = iparity(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 123 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 124 + i = 3 + r = iparity(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 125 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 126 + i = 4 + r = iparity(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 127 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 128 + i = 1 + r = iparity(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 131 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 132 + i = 2 + r = iparity(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 133 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 134 + i = 3 + r = iparity(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 135 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 136 + i = 4 + r = iparity(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 137 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 138 + end subroutine + subroutine check_sum + integer :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + integer, allocatable :: r(:,:,:) + a = reshape((/ integer:: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = sum(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 211 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 212 + i = 2 + r = sum(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 213 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 214 + i = 3 + r = sum(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 215 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 216 + i = 4 + r = sum(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 217 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 218 + i = 1 + r = sum(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 221 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 222 + i = 2 + r = sum(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 223 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 224 + i = 3 + r = sum(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 225 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 226 + i = 4 + r = sum(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 227 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 228 + i = 1 + r = sum(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 231 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 232 + i = 2 + r = sum(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 233 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 234 + i = 3 + r = sum(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 235 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 236 + i = 4 + r = sum(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 237 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 238 + end subroutine + subroutine check_minloc_int + integer :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + integer, allocatable :: r(:,:,:) + a = reshape((/ integer:: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = minloc(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 311 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 312 + i = 2 + r = minloc(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 313 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 314 + i = 3 + r = minloc(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 315 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 316 + i = 4 + r = minloc(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 317 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 318 + i = 1 + r = minloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 321 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 322 + i = 2 + r = minloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 323 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 324 + i = 3 + r = minloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 325 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 326 + i = 4 + r = minloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 327 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 328 + i = 1 + r = minloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 331 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 332 + i = 2 + r = minloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 333 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 334 + i = 3 + r = minloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 335 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 336 + i = 4 + r = minloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 337 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 338 + end subroutine + subroutine check_minloc_char + character :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + integer, allocatable :: r(:,:,:) + a = reshape((/ character:: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = minloc(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 411 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 412 + i = 2 + r = minloc(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 413 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 414 + i = 3 + r = minloc(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 415 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 416 + i = 4 + r = minloc(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 417 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 418 + i = 1 + r = minloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 421 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 422 + i = 2 + r = minloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 423 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 424 + i = 3 + r = minloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 425 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 426 + i = 4 + r = minloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 427 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 428 + i = 1 + r = minloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 431 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 432 + i = 2 + r = minloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 433 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 434 + i = 3 + r = minloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 435 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 436 + i = 4 + r = minloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 437 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 438 + end subroutine + subroutine check_maxloc_char4 + character(kind=4) :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + integer, allocatable :: r(:,:,:) + a = reshape((/ character(kind=4):: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = maxloc(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 511 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 512 + i = 2 + r = maxloc(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 513 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 514 + i = 3 + r = maxloc(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 515 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 516 + i = 4 + r = maxloc(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 517 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 518 + i = 1 + r = maxloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 521 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 522 + i = 2 + r = maxloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 523 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 524 + i = 3 + r = maxloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 525 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 526 + i = 4 + r = maxloc(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 527 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 528 + i = 1 + r = maxloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 531 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 532 + i = 2 + r = maxloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 533 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 534 + i = 3 + r = maxloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 535 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 536 + i = 4 + r = maxloc(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 537 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 538 + end subroutine + subroutine check_minval_char + character :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + character, allocatable :: r(:,:,:) + a = reshape((/ character:: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = minval(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 611 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 612 + i = 2 + r = minval(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 613 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 614 + i = 3 + r = minval(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 615 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 616 + i = 4 + r = minval(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 617 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 618 + i = 1 + r = minval(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 621 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 622 + i = 2 + r = minval(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 623 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 624 + i = 3 + r = minval(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 625 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 626 + i = 4 + r = minval(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 627 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 628 + i = 1 + r = minval(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 631 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 632 + i = 2 + r = minval(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 633 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 634 + i = 3 + r = minval(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 635 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 636 + i = 4 + r = minval(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 637 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 638 + end subroutine + subroutine check_maxval_char4 + character(kind=4) :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + character(kind=4), allocatable :: r(:,:,:) + a = reshape((/ character(kind=4):: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = maxval(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 711 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 712 + i = 2 + r = maxval(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 713 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 714 + i = 3 + r = maxval(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 715 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 716 + i = 4 + r = maxval(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 717 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 718 + i = 1 + r = maxval(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 721 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 722 + i = 2 + r = maxval(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 723 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 724 + i = 3 + r = maxval(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 725 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 726 + i = 4 + r = maxval(a, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 727 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 728 + i = 1 + r = maxval(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 731 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 732 + i = 2 + r = maxval(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 733 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 734 + i = 3 + r = maxval(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 735 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 736 + i = 4 + r = maxval(a, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 737 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 738 + end subroutine + subroutine check_any + logical :: a(9,3,0,7) + integer :: i + logical, allocatable :: r(:,:,:) + a = reshape((/ logical:: /), shape(a)) + i = 1 + r = any(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 811 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 812 + i = 2 + r = any(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 813 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 814 + i = 3 + r = any(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 815 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 816 + i = 4 + r = any(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 817 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 818 + end subroutine + subroutine check_count4 + logical(kind=4) :: a(9,3,0,7) + integer :: i + integer, allocatable :: r(:,:,:) + a = reshape((/ logical(kind=4):: /), shape(a)) + i = 1 + r = count(a, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 911 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 912 + i = 2 + r = count(a, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 913 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 914 + i = 3 + r = count(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 915 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 916 + i = 4 + r = count(a, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 917 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 918 + end subroutine + subroutine check_findloc_int + integer :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + integer, allocatable :: r(:,:,:) + a = reshape((/ integer:: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = findloc(a, 10, dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1011 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1012 + i = 2 + r = findloc(a, 10, dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1013 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1014 + i = 3 + r = findloc(a, 10, dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1015 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1016 + i = 4 + r = findloc(a, 10, dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1017 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1018 + i = 1 + r = findloc(a, 10, dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1021 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1022 + i = 2 + r = findloc(a, 10, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1023 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1024 + i = 3 + r = findloc(a, 10, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1025 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1026 + i = 4 + r = findloc(a, 10, dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1027 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1028 + i = 1 + r = findloc(a, 10, dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1031 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1032 + i = 2 + r = findloc(a, 10, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1033 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1034 + i = 3 + r = findloc(a, 10, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1035 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1036 + i = 4 + r = findloc(a, 10, dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1037 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1038 + end subroutine + subroutine check_findloc_char + character :: a(9,3,0,7) + logical :: m1(9,3,0,7) + logical(kind=4) :: m4 + integer :: i + integer, allocatable :: r(:,:,:) + a = reshape((/ character:: /), shape(a)) + m1 = reshape((/ logical:: /), shape(m1)) + m4 = .false. + i = 1 + r = findloc(a, "a", dim=i) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1111 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1112 + i = 2 + r = findloc(a, "a", dim=i) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1113 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1114 + i = 3 + r = findloc(a, "a", dim=i) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1115 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1116 + i = 4 + r = findloc(a, "a", dim=i) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1117 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1118 + i = 1 + r = findloc(a, "a", dim=i, mask=m1) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1121 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1122 + i = 2 + r = findloc(a, "a", dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1123 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1124 + i = 3 + r = findloc(a, "a", dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1125 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1126 + i = 4 + r = findloc(a, "a", dim=i, mask=m1) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1127 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1128 + i = 1 + r = findloc(a, "a", dim=i, mask=m4) + if (any(shape(r) /= (/ 3, 0, 7 /))) stop 1131 + if (any(ubound(r) /= (/ 3, 0, 7 /))) stop 1132 + i = 2 + r = findloc(a, "a", dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 0, 7 /))) stop 1133 + if (any(ubound(r) /= (/ 9, 0, 7 /))) stop 1134 + i = 3 + r = findloc(a, "a", dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 7 /))) stop 1135 + if (any(ubound(r) /= (/ 9, 3, 7 /))) stop 1136 + i = 4 + r = findloc(a, "a", dim=i, mask=m4) + if (any(shape(r) /= (/ 9, 3, 0 /))) stop 1137 + if (any(ubound(r) /= (/ 9, 3, 0 /))) stop 1138 + end subroutine +end program diff --git a/libgfortran/generated/all_l1.c b/libgfortran/generated/all_l1.c index e494281..aacc5ac 100644 --- a/libgfortran/generated/all_l1.c +++ b/libgfortran/generated/all_l1.c @@ -103,11 +103,7 @@ all_l1 (gfc_array_l1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c index 1fc45bf..e1b2e15 100644 --- a/libgfortran/generated/all_l16.c +++ b/libgfortran/generated/all_l16.c @@ -103,11 +103,7 @@ all_l16 (gfc_array_l16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/all_l2.c b/libgfortran/generated/all_l2.c index f6dbf1c..045196e 100644 --- a/libgfortran/generated/all_l2.c +++ b/libgfortran/generated/all_l2.c @@ -103,11 +103,7 @@ all_l2 (gfc_array_l2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index 7f915ef..7783d96 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -103,11 +103,7 @@ all_l4 (gfc_array_l4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c index 3fa8147..a957100 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -103,11 +103,7 @@ all_l8 (gfc_array_l8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/any_l1.c b/libgfortran/generated/any_l1.c index 236e410..ce38a97 100644 --- a/libgfortran/generated/any_l1.c +++ b/libgfortran/generated/any_l1.c @@ -103,11 +103,7 @@ any_l1 (gfc_array_l1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c index 7290d66..771c6fc 100644 --- a/libgfortran/generated/any_l16.c +++ b/libgfortran/generated/any_l16.c @@ -103,11 +103,7 @@ any_l16 (gfc_array_l16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/any_l2.c b/libgfortran/generated/any_l2.c index d54e78f..69a0d47 100644 --- a/libgfortran/generated/any_l2.c +++ b/libgfortran/generated/any_l2.c @@ -103,11 +103,7 @@ any_l2 (gfc_array_l2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c index a577bc5..08e4cff 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -103,11 +103,7 @@ any_l4 (gfc_array_l4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c index 0af3027..259bd30 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -103,11 +103,7 @@ any_l8 (gfc_array_l8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/count_16_l.c b/libgfortran/generated/count_16_l.c index 89f4f75..f7319d0 100644 --- a/libgfortran/generated/count_16_l.c +++ b/libgfortran/generated/count_16_l.c @@ -103,11 +103,7 @@ count_16_l (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/count_1_l.c b/libgfortran/generated/count_1_l.c index 05b8b89..919388f 100644 --- a/libgfortran/generated/count_1_l.c +++ b/libgfortran/generated/count_1_l.c @@ -103,11 +103,7 @@ count_1_l (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/count_2_l.c b/libgfortran/generated/count_2_l.c index 654b215..493cd15 100644 --- a/libgfortran/generated/count_2_l.c +++ b/libgfortran/generated/count_2_l.c @@ -103,11 +103,7 @@ count_2_l (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/count_4_l.c b/libgfortran/generated/count_4_l.c index 8f40ea1..a308bd7 100644 --- a/libgfortran/generated/count_4_l.c +++ b/libgfortran/generated/count_4_l.c @@ -103,11 +103,7 @@ count_4_l (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/count_8_l.c b/libgfortran/generated/count_8_l.c index ab64c08..e23081d 100644 --- a/libgfortran/generated/count_8_l.c +++ b/libgfortran/generated/count_8_l.c @@ -103,11 +103,7 @@ count_8_l (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_c10.c b/libgfortran/generated/findloc1_c10.c index 0b7905a..fa68971 100644 --- a/libgfortran/generated/findloc1_c10.c +++ b/libgfortran/generated/findloc1_c10.c @@ -105,11 +105,7 @@ findloc1_c10 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_c10 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_c10 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_c16.c b/libgfortran/generated/findloc1_c16.c index 1cbe1fc..13e2209 100644 --- a/libgfortran/generated/findloc1_c16.c +++ b/libgfortran/generated/findloc1_c16.c @@ -105,11 +105,7 @@ findloc1_c16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_c16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_c16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_c17.c b/libgfortran/generated/findloc1_c17.c index fea1628..03c651e 100644 --- a/libgfortran/generated/findloc1_c17.c +++ b/libgfortran/generated/findloc1_c17.c @@ -105,11 +105,7 @@ findloc1_c17 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_c17 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_c17 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_c4.c b/libgfortran/generated/findloc1_c4.c index 2c800aa..6c3fe7c 100644 --- a/libgfortran/generated/findloc1_c4.c +++ b/libgfortran/generated/findloc1_c4.c @@ -105,11 +105,7 @@ findloc1_c4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_c4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_c4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_c8.c b/libgfortran/generated/findloc1_c8.c index 9f14e63..2b4b84b 100644 --- a/libgfortran/generated/findloc1_c8.c +++ b/libgfortran/generated/findloc1_c8.c @@ -105,11 +105,7 @@ findloc1_c8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_c8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_c8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_i1.c b/libgfortran/generated/findloc1_i1.c index 90896ac..5175198 100644 --- a/libgfortran/generated/findloc1_i1.c +++ b/libgfortran/generated/findloc1_i1.c @@ -105,11 +105,7 @@ findloc1_i1 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_i1 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_i1 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_i16.c b/libgfortran/generated/findloc1_i16.c index 699320d..c3fcf8b 100644 --- a/libgfortran/generated/findloc1_i16.c +++ b/libgfortran/generated/findloc1_i16.c @@ -105,11 +105,7 @@ findloc1_i16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_i16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_i16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_i2.c b/libgfortran/generated/findloc1_i2.c index d3ebdab..c00f7b5 100644 --- a/libgfortran/generated/findloc1_i2.c +++ b/libgfortran/generated/findloc1_i2.c @@ -105,11 +105,7 @@ findloc1_i2 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_i2 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_i2 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_i4.c b/libgfortran/generated/findloc1_i4.c index e030e6b..d1d0247 100644 --- a/libgfortran/generated/findloc1_i4.c +++ b/libgfortran/generated/findloc1_i4.c @@ -105,11 +105,7 @@ findloc1_i4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_i4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_i4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_i8.c b/libgfortran/generated/findloc1_i8.c index 678e651..02f219b 100644 --- a/libgfortran/generated/findloc1_i8.c +++ b/libgfortran/generated/findloc1_i8.c @@ -105,11 +105,7 @@ findloc1_i8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_i8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_i8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_r10.c b/libgfortran/generated/findloc1_r10.c index b416fdd..1b824c7 100644 --- a/libgfortran/generated/findloc1_r10.c +++ b/libgfortran/generated/findloc1_r10.c @@ -105,11 +105,7 @@ findloc1_r10 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_r10 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_r10 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_r16.c b/libgfortran/generated/findloc1_r16.c index d03b34f..9a42849 100644 --- a/libgfortran/generated/findloc1_r16.c +++ b/libgfortran/generated/findloc1_r16.c @@ -105,11 +105,7 @@ findloc1_r16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_r16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_r16 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_r17.c b/libgfortran/generated/findloc1_r17.c index 2b72e90..7b95da2 100644 --- a/libgfortran/generated/findloc1_r17.c +++ b/libgfortran/generated/findloc1_r17.c @@ -105,11 +105,7 @@ findloc1_r17 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_r17 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_r17 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_r4.c b/libgfortran/generated/findloc1_r4.c index fa216cc..8b52772 100644 --- a/libgfortran/generated/findloc1_r4.c +++ b/libgfortran/generated/findloc1_r4.c @@ -105,11 +105,7 @@ findloc1_r4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_r4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_r4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_r8.c b/libgfortran/generated/findloc1_r8.c index 7f1e044..0ac3fd6 100644 --- a/libgfortran/generated/findloc1_r8.c +++ b/libgfortran/generated/findloc1_r8.c @@ -105,11 +105,7 @@ findloc1_r8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -293,11 +289,7 @@ mfindloc1_r8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +458,7 @@ sfindloc1_r8 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_s1.c b/libgfortran/generated/findloc1_s1.c index 2fb81c4..85b13bd 100644 --- a/libgfortran/generated/findloc1_s1.c +++ b/libgfortran/generated/findloc1_s1.c @@ -107,11 +107,7 @@ findloc1_s1 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -295,11 +291,7 @@ mfindloc1_s1 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -468,11 +460,7 @@ sfindloc1_s1 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/findloc1_s4.c b/libgfortran/generated/findloc1_s4.c index 641ca7f..7b5a020 100644 --- a/libgfortran/generated/findloc1_s4.c +++ b/libgfortran/generated/findloc1_s4.c @@ -107,11 +107,7 @@ findloc1_s4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -295,11 +291,7 @@ mfindloc1_s4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -468,11 +460,7 @@ sfindloc1_s4 (gfc_array_index_type * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c index 2236f04..2a3e52b 100644 --- a/libgfortran/generated/iall_i1.c +++ b/libgfortran/generated/iall_i1.c @@ -106,12 +106,7 @@ iall_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miall_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siall_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c index 96ca5a5..d7bdc55 100644 --- a/libgfortran/generated/iall_i16.c +++ b/libgfortran/generated/iall_i16.c @@ -106,12 +106,7 @@ iall_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miall_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siall_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c index 4d895db..ceaaf15 100644 --- a/libgfortran/generated/iall_i2.c +++ b/libgfortran/generated/iall_i2.c @@ -106,12 +106,7 @@ iall_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miall_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siall_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c index 673e980..face5d9 100644 --- a/libgfortran/generated/iall_i4.c +++ b/libgfortran/generated/iall_i4.c @@ -106,12 +106,7 @@ iall_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miall_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siall_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c index 4de6ff1..7e47c3b 100644 --- a/libgfortran/generated/iall_i8.c +++ b/libgfortran/generated/iall_i8.c @@ -106,12 +106,7 @@ iall_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miall_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siall_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c index ab191d6..e152ffe 100644 --- a/libgfortran/generated/iany_i1.c +++ b/libgfortran/generated/iany_i1.c @@ -106,12 +106,7 @@ iany_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miany_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siany_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c index 8fda0ef..bd775b8 100644 --- a/libgfortran/generated/iany_i16.c +++ b/libgfortran/generated/iany_i16.c @@ -106,12 +106,7 @@ iany_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miany_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siany_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c index 43080b8..956fbdb 100644 --- a/libgfortran/generated/iany_i2.c +++ b/libgfortran/generated/iany_i2.c @@ -106,12 +106,7 @@ iany_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miany_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siany_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c index d8430ca..fef7d65 100644 --- a/libgfortran/generated/iany_i4.c +++ b/libgfortran/generated/iany_i4.c @@ -106,12 +106,7 @@ iany_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miany_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siany_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c index 7d3ac16..5ddca1f 100644 --- a/libgfortran/generated/iany_i8.c +++ b/libgfortran/generated/iany_i8.c @@ -106,12 +106,7 @@ iany_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miany_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siany_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c index 53b15cb..8076d05 100644 --- a/libgfortran/generated/iparity_i1.c +++ b/libgfortran/generated/iparity_i1.c @@ -106,12 +106,7 @@ iparity_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miparity_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siparity_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c index 848ac62..49907fe 100644 --- a/libgfortran/generated/iparity_i16.c +++ b/libgfortran/generated/iparity_i16.c @@ -106,12 +106,7 @@ iparity_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miparity_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siparity_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c index f435fd2..58703bc 100644 --- a/libgfortran/generated/iparity_i2.c +++ b/libgfortran/generated/iparity_i2.c @@ -106,12 +106,7 @@ iparity_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miparity_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siparity_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c index ea876bd..051dd36 100644 --- a/libgfortran/generated/iparity_i4.c +++ b/libgfortran/generated/iparity_i4.c @@ -106,12 +106,7 @@ iparity_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miparity_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siparity_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c index 0fee2e5..90f444e 100644 --- a/libgfortran/generated/iparity_i8.c +++ b/libgfortran/generated/iparity_i8.c @@ -106,12 +106,7 @@ iparity_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ miparity_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ siparity_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c index bc0643c..3a00cd5 100644 --- a/libgfortran/generated/maxloc1_16_i1.c +++ b/libgfortran/generated/maxloc1_16_i1.c @@ -109,12 +109,7 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c index 5dca85c..bfb3e6f 100644 --- a/libgfortran/generated/maxloc1_16_i16.c +++ b/libgfortran/generated/maxloc1_16_i16.c @@ -109,12 +109,7 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c index 118d7c5..abe0b89 100644 --- a/libgfortran/generated/maxloc1_16_i2.c +++ b/libgfortran/generated/maxloc1_16_i2.c @@ -109,12 +109,7 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c index 858dfc0..4650704 100644 --- a/libgfortran/generated/maxloc1_16_i4.c +++ b/libgfortran/generated/maxloc1_16_i4.c @@ -109,12 +109,7 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c index 36469e4..83ac6a5 100644 --- a/libgfortran/generated/maxloc1_16_i8.c +++ b/libgfortran/generated/maxloc1_16_i8.c @@ -109,12 +109,7 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c index dfc5568..0dec211 100644 --- a/libgfortran/generated/maxloc1_16_r10.c +++ b/libgfortran/generated/maxloc1_16_r10.c @@ -109,12 +109,7 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c index 17daa79..1f75f44 100644 --- a/libgfortran/generated/maxloc1_16_r16.c +++ b/libgfortran/generated/maxloc1_16_r16.c @@ -109,12 +109,7 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_r17.c b/libgfortran/generated/maxloc1_16_r17.c index 46fd4ab..31ff83b 100644 --- a/libgfortran/generated/maxloc1_16_r17.c +++ b/libgfortran/generated/maxloc1_16_r17.c @@ -109,12 +109,7 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c index b52932f..fea7580 100644 --- a/libgfortran/generated/maxloc1_16_r4.c +++ b/libgfortran/generated/maxloc1_16_r4.c @@ -109,12 +109,7 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c index c26c4b4..4f2acd6 100644 --- a/libgfortran/generated/maxloc1_16_r8.c +++ b/libgfortran/generated/maxloc1_16_r8.c @@ -109,12 +109,7 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_s1.c b/libgfortran/generated/maxloc1_16_s1.c index 54f5723..44a27ca 100644 --- a/libgfortran/generated/maxloc1_16_s1.c +++ b/libgfortran/generated/maxloc1_16_s1.c @@ -121,12 +121,7 @@ maxloc1_16_s1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mmaxloc1_16_s1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_16_s4.c b/libgfortran/generated/maxloc1_16_s4.c index eb015ea..c4686a7 100644 --- a/libgfortran/generated/maxloc1_16_s4.c +++ b/libgfortran/generated/maxloc1_16_s4.c @@ -121,12 +121,7 @@ maxloc1_16_s4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mmaxloc1_16_s4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c index 4b0bd56..0e4c644 100644 --- a/libgfortran/generated/maxloc1_4_i1.c +++ b/libgfortran/generated/maxloc1_4_i1.c @@ -109,12 +109,7 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c index d976d2d..4094c01 100644 --- a/libgfortran/generated/maxloc1_4_i16.c +++ b/libgfortran/generated/maxloc1_4_i16.c @@ -109,12 +109,7 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c index ba82289..c552d90 100644 --- a/libgfortran/generated/maxloc1_4_i2.c +++ b/libgfortran/generated/maxloc1_4_i2.c @@ -109,12 +109,7 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index 644e48e..76a7121 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -109,12 +109,7 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index fd5d31b..49a0518 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -109,12 +109,7 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c index 00c90fa..4f1a8e8 100644 --- a/libgfortran/generated/maxloc1_4_r10.c +++ b/libgfortran/generated/maxloc1_4_r10.c @@ -109,12 +109,7 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c index 92372b8..ecb9c2c 100644 --- a/libgfortran/generated/maxloc1_4_r16.c +++ b/libgfortran/generated/maxloc1_4_r16.c @@ -109,12 +109,7 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_r17.c b/libgfortran/generated/maxloc1_4_r17.c index 10c6875..a0e43b5 100644 --- a/libgfortran/generated/maxloc1_4_r17.c +++ b/libgfortran/generated/maxloc1_4_r17.c @@ -109,12 +109,7 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index b0750c1..f79c7ff 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -109,12 +109,7 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index 3be8768..c77b720 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -109,12 +109,7 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_s1.c b/libgfortran/generated/maxloc1_4_s1.c index 9162864..d1657b8 100644 --- a/libgfortran/generated/maxloc1_4_s1.c +++ b/libgfortran/generated/maxloc1_4_s1.c @@ -121,12 +121,7 @@ maxloc1_4_s1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mmaxloc1_4_s1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ smaxloc1_4_s1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_4_s4.c b/libgfortran/generated/maxloc1_4_s4.c index 7cb056e..7727c21 100644 --- a/libgfortran/generated/maxloc1_4_s4.c +++ b/libgfortran/generated/maxloc1_4_s4.c @@ -121,12 +121,7 @@ maxloc1_4_s4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mmaxloc1_4_s4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ smaxloc1_4_s4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c index 42b113b..4ab9d74 100644 --- a/libgfortran/generated/maxloc1_8_i1.c +++ b/libgfortran/generated/maxloc1_8_i1.c @@ -109,12 +109,7 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c index 594c735..817a777 100644 --- a/libgfortran/generated/maxloc1_8_i16.c +++ b/libgfortran/generated/maxloc1_8_i16.c @@ -109,12 +109,7 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c index 9e141af..57d40b5 100644 --- a/libgfortran/generated/maxloc1_8_i2.c +++ b/libgfortran/generated/maxloc1_8_i2.c @@ -109,12 +109,7 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index b94c627..451f860 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -109,12 +109,7 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index 18e4503..5f5dbd4 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -109,12 +109,7 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c index 22cd8c2..78928f8 100644 --- a/libgfortran/generated/maxloc1_8_r10.c +++ b/libgfortran/generated/maxloc1_8_r10.c @@ -109,12 +109,7 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c index 646fe18..5eb1e51 100644 --- a/libgfortran/generated/maxloc1_8_r16.c +++ b/libgfortran/generated/maxloc1_8_r16.c @@ -109,12 +109,7 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_r17.c b/libgfortran/generated/maxloc1_8_r17.c index cc6bb86..3662425 100644 --- a/libgfortran/generated/maxloc1_8_r17.c +++ b/libgfortran/generated/maxloc1_8_r17.c @@ -109,12 +109,7 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index 2c482bc..8d69771 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -109,12 +109,7 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index 32452d4..72651d0 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -109,12 +109,7 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -331,11 +326,7 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -537,11 +528,7 @@ smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_s1.c b/libgfortran/generated/maxloc1_8_s1.c index 96ac1ac..97fe489 100644 --- a/libgfortran/generated/maxloc1_8_s1.c +++ b/libgfortran/generated/maxloc1_8_s1.c @@ -121,12 +121,7 @@ maxloc1_8_s1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mmaxloc1_8_s1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ smaxloc1_8_s1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxloc1_8_s4.c b/libgfortran/generated/maxloc1_8_s4.c index 068c4ff..519e4cb 100644 --- a/libgfortran/generated/maxloc1_8_s4.c +++ b/libgfortran/generated/maxloc1_8_s4.c @@ -121,12 +121,7 @@ maxloc1_8_s4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mmaxloc1_8_s4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ smaxloc1_8_s4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval1_s1.c b/libgfortran/generated/maxval1_s1.c index 6ad5366..1957902 100644 --- a/libgfortran/generated/maxval1_s1.c +++ b/libgfortran/generated/maxval1_s1.c @@ -121,12 +121,7 @@ maxval1_s1 (gfc_array_s1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -320,11 +315,7 @@ mmaxval1_s1 (gfc_array_s1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -496,11 +487,7 @@ smaxval1_s1 (gfc_array_s1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval1_s4.c b/libgfortran/generated/maxval1_s4.c index 6337b04..501e605 100644 --- a/libgfortran/generated/maxval1_s4.c +++ b/libgfortran/generated/maxval1_s4.c @@ -121,12 +121,7 @@ maxval1_s4 (gfc_array_s4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -320,11 +315,7 @@ mmaxval1_s4 (gfc_array_s4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -496,11 +487,7 @@ smaxval1_s4 (gfc_array_s4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c index 19feced..a500d5d 100644 --- a/libgfortran/generated/maxval_i1.c +++ b/libgfortran/generated/maxval_i1.c @@ -106,12 +106,7 @@ maxval_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c index cd75603..9833337 100644 --- a/libgfortran/generated/maxval_i16.c +++ b/libgfortran/generated/maxval_i16.c @@ -106,12 +106,7 @@ maxval_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c index 9c7eb77..d3d4b6a 100644 --- a/libgfortran/generated/maxval_i2.c +++ b/libgfortran/generated/maxval_i2.c @@ -106,12 +106,7 @@ maxval_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index 40bf1ce..b6c6504 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -106,12 +106,7 @@ maxval_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index 0b6b9f6..418b5b6 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -106,12 +106,7 @@ maxval_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c index f83c4e9..486c16c 100644 --- a/libgfortran/generated/maxval_r10.c +++ b/libgfortran/generated/maxval_r10.c @@ -106,12 +106,7 @@ maxval_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c index ec2d7a9..dd9b427 100644 --- a/libgfortran/generated/maxval_r16.c +++ b/libgfortran/generated/maxval_r16.c @@ -106,12 +106,7 @@ maxval_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_r17.c b/libgfortran/generated/maxval_r17.c index 442e2b3..feda95e 100644 --- a/libgfortran/generated/maxval_r17.c +++ b/libgfortran/generated/maxval_r17.c @@ -106,12 +106,7 @@ maxval_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index 6c08b34..6e1b4fa 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -106,12 +106,7 @@ maxval_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index 30d259f..2f78627 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -106,12 +106,7 @@ maxval_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ smaxval_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c index 80abb3c..bf3daef 100644 --- a/libgfortran/generated/minloc1_16_i1.c +++ b/libgfortran/generated/minloc1_16_i1.c @@ -109,12 +109,7 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_i1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c index 388a8f9..7a7e343 100644 --- a/libgfortran/generated/minloc1_16_i16.c +++ b/libgfortran/generated/minloc1_16_i16.c @@ -109,12 +109,7 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c index 51ae92b..c66d21f 100644 --- a/libgfortran/generated/minloc1_16_i2.c +++ b/libgfortran/generated/minloc1_16_i2.c @@ -109,12 +109,7 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_i2 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c index 675fc33..9138ec4 100644 --- a/libgfortran/generated/minloc1_16_i4.c +++ b/libgfortran/generated/minloc1_16_i4.c @@ -109,12 +109,7 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_i4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c index 6a41788..c974954 100644 --- a/libgfortran/generated/minloc1_16_i8.c +++ b/libgfortran/generated/minloc1_16_i8.c @@ -109,12 +109,7 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_i8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c index f5d9c34..3f6c59a 100644 --- a/libgfortran/generated/minloc1_16_r10.c +++ b/libgfortran/generated/minloc1_16_r10.c @@ -109,12 +109,7 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_r10 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c index 3405c0e..18cd4c6 100644 --- a/libgfortran/generated/minloc1_16_r16.c +++ b/libgfortran/generated/minloc1_16_r16.c @@ -109,12 +109,7 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_r16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_r17.c b/libgfortran/generated/minloc1_16_r17.c index e3d0d41..02b252b 100644 --- a/libgfortran/generated/minloc1_16_r17.c +++ b/libgfortran/generated/minloc1_16_r17.c @@ -109,12 +109,7 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_r17 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c index 8af0970..b6d5e53 100644 --- a/libgfortran/generated/minloc1_16_r4.c +++ b/libgfortran/generated/minloc1_16_r4.c @@ -109,12 +109,7 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_r4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c index 9397dc6..6b879bf 100644 --- a/libgfortran/generated/minloc1_16_r8.c +++ b/libgfortran/generated/minloc1_16_r8.c @@ -109,12 +109,7 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_16_r8 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_s1.c b/libgfortran/generated/minloc1_16_s1.c index c6d8861..d6c41c9 100644 --- a/libgfortran/generated/minloc1_16_s1.c +++ b/libgfortran/generated/minloc1_16_s1.c @@ -121,12 +121,7 @@ minloc1_16_s1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mminloc1_16_s1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ sminloc1_16_s1 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_16_s4.c b/libgfortran/generated/minloc1_16_s4.c index 0f5eb2d..ef67757 100644 --- a/libgfortran/generated/minloc1_16_s4.c +++ b/libgfortran/generated/minloc1_16_s4.c @@ -121,12 +121,7 @@ minloc1_16_s4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mminloc1_16_s4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ sminloc1_16_s4 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c index 4274e70..7984366 100644 --- a/libgfortran/generated/minloc1_4_i1.c +++ b/libgfortran/generated/minloc1_4_i1.c @@ -109,12 +109,7 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_i1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c index ded68f0..0c1170a 100644 --- a/libgfortran/generated/minloc1_4_i16.c +++ b/libgfortran/generated/minloc1_4_i16.c @@ -109,12 +109,7 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_i16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c index a053dd3..3bc567c 100644 --- a/libgfortran/generated/minloc1_4_i2.c +++ b/libgfortran/generated/minloc1_4_i2.c @@ -109,12 +109,7 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_i2 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index 6292fc2..7d82a18 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -109,12 +109,7 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index 9240e3f..cb6836b 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -109,12 +109,7 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_i8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c index 42a9de0..e7f1a1c 100644 --- a/libgfortran/generated/minloc1_4_r10.c +++ b/libgfortran/generated/minloc1_4_r10.c @@ -109,12 +109,7 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_r10 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c index 06193f1..c0938cd 100644 --- a/libgfortran/generated/minloc1_4_r16.c +++ b/libgfortran/generated/minloc1_4_r16.c @@ -109,12 +109,7 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_r16 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_r17.c b/libgfortran/generated/minloc1_4_r17.c index d021d46..a2b8ad2 100644 --- a/libgfortran/generated/minloc1_4_r17.c +++ b/libgfortran/generated/minloc1_4_r17.c @@ -109,12 +109,7 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_r17 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index e6990c6..c55ab25 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -109,12 +109,7 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_r4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index fd1574f..8c149a8 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -109,12 +109,7 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_4_r8 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_s1.c b/libgfortran/generated/minloc1_4_s1.c index 5bbc844..54a656e 100644 --- a/libgfortran/generated/minloc1_4_s1.c +++ b/libgfortran/generated/minloc1_4_s1.c @@ -121,12 +121,7 @@ minloc1_4_s1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mminloc1_4_s1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ sminloc1_4_s1 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_4_s4.c b/libgfortran/generated/minloc1_4_s4.c index 4f2ab20..fedddac 100644 --- a/libgfortran/generated/minloc1_4_s4.c +++ b/libgfortran/generated/minloc1_4_s4.c @@ -121,12 +121,7 @@ minloc1_4_s4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mminloc1_4_s4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ sminloc1_4_s4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c index 1b8b240..17f2e0c 100644 --- a/libgfortran/generated/minloc1_8_i1.c +++ b/libgfortran/generated/minloc1_8_i1.c @@ -109,12 +109,7 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_i1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c index 9561270..be829bc 100644 --- a/libgfortran/generated/minloc1_8_i16.c +++ b/libgfortran/generated/minloc1_8_i16.c @@ -109,12 +109,7 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_i16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c index 9798565..9a3c8e8 100644 --- a/libgfortran/generated/minloc1_8_i2.c +++ b/libgfortran/generated/minloc1_8_i2.c @@ -109,12 +109,7 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_i2 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 1c303ed..47c8547 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -109,12 +109,7 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_i4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index 6249f20..ca25466 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -109,12 +109,7 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c index 2c6a0fd..e410358 100644 --- a/libgfortran/generated/minloc1_8_r10.c +++ b/libgfortran/generated/minloc1_8_r10.c @@ -109,12 +109,7 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_r10 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c index f7d0664..db9c163 100644 --- a/libgfortran/generated/minloc1_8_r16.c +++ b/libgfortran/generated/minloc1_8_r16.c @@ -109,12 +109,7 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_r16 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_r17.c b/libgfortran/generated/minloc1_8_r17.c index 0cc70c4..65241e7 100644 --- a/libgfortran/generated/minloc1_8_r17.c +++ b/libgfortran/generated/minloc1_8_r17.c @@ -109,12 +109,7 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_r17 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index b2ae3df..f76e79d 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -109,12 +109,7 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_r4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index bafd72d..730774e 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -109,12 +109,7 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -341,11 +336,7 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -547,11 +538,7 @@ sminloc1_8_r8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_s1.c b/libgfortran/generated/minloc1_8_s1.c index 8a40b52..188a896 100644 --- a/libgfortran/generated/minloc1_8_s1.c +++ b/libgfortran/generated/minloc1_8_s1.c @@ -121,12 +121,7 @@ minloc1_8_s1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mminloc1_8_s1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ sminloc1_8_s1 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minloc1_8_s4.c b/libgfortran/generated/minloc1_8_s4.c index 906d1df..f7930de 100644 --- a/libgfortran/generated/minloc1_8_s4.c +++ b/libgfortran/generated/minloc1_8_s4.c @@ -121,12 +121,7 @@ minloc1_8_s4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -324,11 +319,7 @@ mminloc1_8_s4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -503,11 +494,7 @@ sminloc1_8_s4 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval1_s1.c b/libgfortran/generated/minval1_s1.c index d83fef1..859530f 100644 --- a/libgfortran/generated/minval1_s1.c +++ b/libgfortran/generated/minval1_s1.c @@ -121,12 +121,7 @@ minval1_s1 (gfc_array_s1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -320,11 +315,7 @@ mminval1_s1 (gfc_array_s1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -496,11 +487,7 @@ sminval1_s1 (gfc_array_s1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval1_s4.c b/libgfortran/generated/minval1_s4.c index 5ef09cd..d6b5ab6 100644 --- a/libgfortran/generated/minval1_s4.c +++ b/libgfortran/generated/minval1_s4.c @@ -121,12 +121,7 @@ minval1_s4 (gfc_array_s4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -320,11 +315,7 @@ mminval1_s4 (gfc_array_s4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -496,11 +487,7 @@ sminval1_s4 (gfc_array_s4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_UINTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c index 544a996..5972e6c 100644 --- a/libgfortran/generated/minval_i1.c +++ b/libgfortran/generated/minval_i1.c @@ -106,12 +106,7 @@ minval_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c index 1bcdf58..28053b9 100644 --- a/libgfortran/generated/minval_i16.c +++ b/libgfortran/generated/minval_i16.c @@ -106,12 +106,7 @@ minval_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c index 61801f1..8284243 100644 --- a/libgfortran/generated/minval_i2.c +++ b/libgfortran/generated/minval_i2.c @@ -106,12 +106,7 @@ minval_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 019a880..fb83853 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -106,12 +106,7 @@ minval_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index abbbd06..c43d13e 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -106,12 +106,7 @@ minval_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c index d5b9d76..b28522a 100644 --- a/libgfortran/generated/minval_r10.c +++ b/libgfortran/generated/minval_r10.c @@ -106,12 +106,7 @@ minval_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c index 9fdde79..75eb72b 100644 --- a/libgfortran/generated/minval_r16.c +++ b/libgfortran/generated/minval_r16.c @@ -106,12 +106,7 @@ minval_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_r17.c b/libgfortran/generated/minval_r17.c index 3e75af0..c373148 100644 --- a/libgfortran/generated/minval_r17.c +++ b/libgfortran/generated/minval_r17.c @@ -106,12 +106,7 @@ minval_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index f096473..24d132a 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -106,12 +106,7 @@ minval_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index 8fafc3c..c44a273 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -106,12 +106,7 @@ minval_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -317,11 +312,7 @@ mminval_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -508,11 +499,7 @@ sminval_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c index c844ade..8afad2f 100644 --- a/libgfortran/generated/norm2_r10.c +++ b/libgfortran/generated/norm2_r10.c @@ -109,12 +109,7 @@ norm2_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c index 0d4f8de..88ed972 100644 --- a/libgfortran/generated/norm2_r16.c +++ b/libgfortran/generated/norm2_r16.c @@ -117,12 +117,7 @@ norm2_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/norm2_r17.c b/libgfortran/generated/norm2_r17.c index 5a69e52..9cef5cb 100644 --- a/libgfortran/generated/norm2_r17.c +++ b/libgfortran/generated/norm2_r17.c @@ -115,12 +115,7 @@ norm2_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c index 2e023f0..16e0e96 100644 --- a/libgfortran/generated/norm2_r4.c +++ b/libgfortran/generated/norm2_r4.c @@ -109,12 +109,7 @@ norm2_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c index 5494eae..5462f61 100644 --- a/libgfortran/generated/norm2_r8.c +++ b/libgfortran/generated/norm2_r8.c @@ -109,12 +109,7 @@ norm2_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c index e8ee6bd..731b862 100644 --- a/libgfortran/generated/parity_l1.c +++ b/libgfortran/generated/parity_l1.c @@ -106,12 +106,7 @@ parity_l1 (gfc_array_l1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c index 03707a2..3dd883e 100644 --- a/libgfortran/generated/parity_l16.c +++ b/libgfortran/generated/parity_l16.c @@ -106,12 +106,7 @@ parity_l16 (gfc_array_l16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c index 00aa024..90cc272 100644 --- a/libgfortran/generated/parity_l2.c +++ b/libgfortran/generated/parity_l2.c @@ -106,12 +106,7 @@ parity_l2 (gfc_array_l2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c index 08a1e43..1087559 100644 --- a/libgfortran/generated/parity_l4.c +++ b/libgfortran/generated/parity_l4.c @@ -106,12 +106,7 @@ parity_l4 (gfc_array_l4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c index a55e221..8e3ddaa 100644 --- a/libgfortran/generated/parity_l8.c +++ b/libgfortran/generated/parity_l8.c @@ -106,12 +106,7 @@ parity_l8 (gfc_array_l8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_LOGICAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c index 7ecd80e..b97353e 100644 --- a/libgfortran/generated/product_c10.c +++ b/libgfortran/generated/product_c10.c @@ -106,12 +106,7 @@ product_c10 (gfc_array_c10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_c10 (gfc_array_c10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_c10 (gfc_array_c10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c index e1d0c93..1538f60 100644 --- a/libgfortran/generated/product_c16.c +++ b/libgfortran/generated/product_c16.c @@ -106,12 +106,7 @@ product_c16 (gfc_array_c16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_c16 (gfc_array_c16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_c16 (gfc_array_c16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_c17.c b/libgfortran/generated/product_c17.c index 2ed08b3..fba33932 100644 --- a/libgfortran/generated/product_c17.c +++ b/libgfortran/generated/product_c17.c @@ -106,12 +106,7 @@ product_c17 (gfc_array_c17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_c17 (gfc_array_c17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_c17 (gfc_array_c17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index dbf00aa..d46eb69 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -106,12 +106,7 @@ product_c4 (gfc_array_c4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_c4 (gfc_array_c4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_c4 (gfc_array_c4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index 1a3f27d..ffdc538 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -106,12 +106,7 @@ product_c8 (gfc_array_c8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_c8 (gfc_array_c8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_c8 (gfc_array_c8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_i1.c b/libgfortran/generated/product_i1.c index 35f4f6e..d2abb95 100644 --- a/libgfortran/generated/product_i1.c +++ b/libgfortran/generated/product_i1.c @@ -106,12 +106,7 @@ product_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c index 3b81503..9217c12 100644 --- a/libgfortran/generated/product_i16.c +++ b/libgfortran/generated/product_i16.c @@ -106,12 +106,7 @@ product_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_i2.c b/libgfortran/generated/product_i2.c index e998c0d..4287fa7 100644 --- a/libgfortran/generated/product_i2.c +++ b/libgfortran/generated/product_i2.c @@ -106,12 +106,7 @@ product_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index 7dbc77a..0c8d509 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -106,12 +106,7 @@ product_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index aaa688b..555b9cd 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -106,12 +106,7 @@ product_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c index 8a7dba5..5271f55 100644 --- a/libgfortran/generated/product_r10.c +++ b/libgfortran/generated/product_r10.c @@ -106,12 +106,7 @@ product_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c index 38c9922..6a7c850 100644 --- a/libgfortran/generated/product_r16.c +++ b/libgfortran/generated/product_r16.c @@ -106,12 +106,7 @@ product_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_r17.c b/libgfortran/generated/product_r17.c index 37ed80c..2103ec4 100644 --- a/libgfortran/generated/product_r17.c +++ b/libgfortran/generated/product_r17.c @@ -106,12 +106,7 @@ product_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index 616fd5b..f413cf0 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -106,12 +106,7 @@ product_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index c4b710d..6d98fca 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -106,12 +106,7 @@ product_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ mproduct_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ sproduct_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c index 6de84a7..fa8d28d 100644 --- a/libgfortran/generated/sum_c10.c +++ b/libgfortran/generated/sum_c10.c @@ -106,12 +106,7 @@ sum_c10 (gfc_array_c10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_c10 (gfc_array_c10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_c10 (gfc_array_c10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c index 96fc888..78dbb88 100644 --- a/libgfortran/generated/sum_c16.c +++ b/libgfortran/generated/sum_c16.c @@ -106,12 +106,7 @@ sum_c16 (gfc_array_c16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_c16 (gfc_array_c16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_c16 (gfc_array_c16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_c17.c b/libgfortran/generated/sum_c17.c index 1472fe5..a392a09 100644 --- a/libgfortran/generated/sum_c17.c +++ b/libgfortran/generated/sum_c17.c @@ -106,12 +106,7 @@ sum_c17 (gfc_array_c17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_c17 (gfc_array_c17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_c17 (gfc_array_c17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index 250aa41..0da74be 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -106,12 +106,7 @@ sum_c4 (gfc_array_c4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_c4 (gfc_array_c4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_c4 (gfc_array_c4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index 510a258..8d7e18c 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -106,12 +106,7 @@ sum_c8 (gfc_array_c8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_c8 (gfc_array_c8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_c8 (gfc_array_c8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_COMPLEX_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_i1.c b/libgfortran/generated/sum_i1.c index 974522b..387fde4 100644 --- a/libgfortran/generated/sum_i1.c +++ b/libgfortran/generated/sum_i1.c @@ -106,12 +106,7 @@ sum_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_i1 (gfc_array_i1 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_1)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c index 00f644b..da33649 100644 --- a/libgfortran/generated/sum_i16.c +++ b/libgfortran/generated/sum_i16.c @@ -106,12 +106,7 @@ sum_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_i16 (gfc_array_i16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_i2.c b/libgfortran/generated/sum_i2.c index 4482735..9e49cf5 100644 --- a/libgfortran/generated/sum_i2.c +++ b/libgfortran/generated/sum_i2.c @@ -106,12 +106,7 @@ sum_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_i2 (gfc_array_i2 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_2)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index 529fb2e..69e31f1 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -106,12 +106,7 @@ sum_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_i4 (gfc_array_i4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index 7b7ca72..b8c8644 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -106,12 +106,7 @@ sum_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_i8 (gfc_array_i8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c index 71e71dd..daba102 100644 --- a/libgfortran/generated/sum_r10.c +++ b/libgfortran/generated/sum_r10.c @@ -106,12 +106,7 @@ sum_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_r10 (gfc_array_r10 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_10)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c index 813cc33..55a4c1f 100644 --- a/libgfortran/generated/sum_r16.c +++ b/libgfortran/generated/sum_r16.c @@ -106,12 +106,7 @@ sum_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_r16 (gfc_array_r16 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_16)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_r17.c b/libgfortran/generated/sum_r17.c index 8e82e87..519526f 100644 --- a/libgfortran/generated/sum_r17.c +++ b/libgfortran/generated/sum_r17.c @@ -106,12 +106,7 @@ sum_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_r17 (gfc_array_r17 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_17)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index 1b37711..b8cb0a8 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -106,12 +106,7 @@ sum_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_r4 (gfc_array_r4 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_4)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index 294211b..6299b5d 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -106,12 +106,7 @@ sum_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -303,11 +298,7 @@ msum_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -466,11 +457,7 @@ ssum_r8 (gfc_array_r8 * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_REAL_8)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/m4/ifindloc1.m4 b/libgfortran/m4/ifindloc1.m4 index a1c5be6..68a39f3 100644 --- a/libgfortran/m4/ifindloc1.m4 +++ b/libgfortran/m4/ifindloc1.m4 @@ -97,11 +97,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -275,11 +271,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -438,11 +430,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/m4/ifunction-s.m4 b/libgfortran/m4/ifunction-s.m4 index 72793e4..8275f65 100644 --- a/libgfortran/m4/ifunction-s.m4 +++ b/libgfortran/m4/ifunction-s.m4 @@ -109,12 +109,7 @@ void retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -305,11 +300,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -467,11 +458,7 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/m4/ifunction-s2.m4 b/libgfortran/m4/ifunction-s2.m4 index b936d7c..4189dd9 100644 --- a/libgfortran/m4/ifunction-s2.m4 +++ b/libgfortran/m4/ifunction-s2.m4 @@ -111,12 +111,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -306,11 +301,7 @@ void retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -468,11 +459,7 @@ void retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index f3ab4eb..8e32d49 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -96,12 +96,7 @@ name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - - } + return; } else { @@ -293,11 +288,7 @@ m'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { @@ -455,11 +446,7 @@ void retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4 index cb576f3..5fd7763 100644 --- a/libgfortran/m4/ifunction_logical.m4 +++ b/libgfortran/m4/ifunction_logical.m4 @@ -93,11 +93,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, retarray->base_addr = xmallocarray (alloc_size, sizeof (rtype_name)); if (alloc_size == 0) - { - /* Make sure we have a zero-sized array. */ - GFC_DIMENSION_SET(retarray->dim[0], 0, -1, 1); - return; - } + return; } else { |