diff options
Diffstat (limited to 'libgfortran')
202 files changed, 4987 insertions, 3068 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 03eab2e..057b850 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,385 @@ +2025-06-18 Harald Anlauf <anlauf@gmx.de> + + PR fortran/82480 + * intrinsics/stat.c (stat_i4_sub_0): Fix argument names. Rename + SARRAY to VALUES also in error message. When array VALUES is + KIND=4, get only stat components that do not overflow INT32_MAX, + otherwise set the corresponding VALUES elements to -1. + (stat_i4_sub): Fix argument names. + (lstat_i4_sub): Likewise. + (stat_i8_sub_0): Likewise. + (stat_i8_sub): Likewise. + (lstat_i8_sub): Likewise. + (stat_i4): Likewise. + (stat_i8): Likewise. + (lstat_i4): Likewise. + (lstat_i8): Likewise. + (fstat_i4_sub): Likewise. + (fstat_i8_sub): Likewise. + (fstat_i4): Likewise. + (fstat_i8): Likewise. + +2025-06-11 François-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR libfortran/116400 + * Makefile.am: Simplify logic. + * Makefile.in: Regenerate. + * regenerate.sh: Add some checks. + +2025-06-10 François-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR libfortran/116400 + * Makefile.am: Remove source file regeneration rules. + * Makefile.in: Regenerate. + * regenerate.sh: New file. + +2025-06-07 François-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR libfortran/116400 + * generated/iall_i1.c: Regenerate. + * generated/iall_i16.c: Regenerate. + * generated/iall_i2.c: Regenerate. + * generated/iall_i4.c: Regenerate. + * generated/iall_i8.c: Regenerate. + * generated/iany_i1.c: Regenerate. + * generated/iany_i16.c: Regenerate. + * generated/iany_i2.c: Regenerate. + * generated/iany_i4.c: Regenerate. + * generated/iany_i8.c: Regenerate. + * generated/iparity_i1.c: Regenerate. + * generated/iparity_i16.c: Regenerate. + * generated/iparity_i2.c: Regenerate. + * generated/iparity_i4.c: Regenerate. + * generated/iparity_i8.c: Regenerate. + * generated/matmulavx128_c10.c: Regenerate. + * generated/matmulavx128_c16.c: Regenerate. + * generated/matmulavx128_c17.c: Regenerate. + * generated/matmulavx128_c4.c: Regenerate. + * generated/matmulavx128_c8.c: Regenerate. + * generated/matmulavx128_i1.c: Regenerate. + * generated/matmulavx128_i16.c: Regenerate. + * generated/matmulavx128_i2.c: Regenerate. + * generated/matmulavx128_i4.c: Regenerate. + * generated/matmulavx128_i8.c: Regenerate. + * generated/matmulavx128_r10.c: Regenerate. + * generated/matmulavx128_r16.c: Regenerate. + * generated/matmulavx128_r17.c: Regenerate. + * generated/matmulavx128_r4.c: Regenerate. + * generated/matmulavx128_r8.c: Regenerate. + * generated/maxloc1_16_i1.c: Regenerate. + * generated/maxloc1_16_i16.c: Regenerate. + * generated/maxloc1_16_i2.c: Regenerate. + * generated/maxloc1_16_i4.c: Regenerate. + * generated/maxloc1_16_i8.c: Regenerate. + * generated/maxloc1_16_r10.c: Regenerate. + * generated/maxloc1_16_r16.c: Regenerate. + * generated/maxloc1_16_r17.c: Regenerate. + * generated/maxloc1_16_r4.c: Regenerate. + * generated/maxloc1_16_r8.c: Regenerate. + * generated/maxloc1_4_i1.c: Regenerate. + * generated/maxloc1_4_i16.c: Regenerate. + * generated/maxloc1_4_i2.c: Regenerate. + * generated/maxloc1_4_i4.c: Regenerate. + * generated/maxloc1_4_i8.c: Regenerate. + * generated/maxloc1_4_r10.c: Regenerate. + * generated/maxloc1_4_r16.c: Regenerate. + * generated/maxloc1_4_r17.c: Regenerate. + * generated/maxloc1_4_r4.c: Regenerate. + * generated/maxloc1_4_r8.c: Regenerate. + * generated/maxloc1_8_i1.c: Regenerate. + * generated/maxloc1_8_i16.c: Regenerate. + * generated/maxloc1_8_i2.c: Regenerate. + * generated/maxloc1_8_i4.c: Regenerate. + * generated/maxloc1_8_i8.c: Regenerate. + * generated/maxloc1_8_r10.c: Regenerate. + * generated/maxloc1_8_r16.c: Regenerate. + * generated/maxloc1_8_r17.c: Regenerate. + * generated/maxloc1_8_r4.c: Regenerate. + * generated/maxloc1_8_r8.c: Regenerate. + * generated/maxval_i1.c: Regenerate. + * generated/maxval_i16.c: Regenerate. + * generated/maxval_i2.c: Regenerate. + * generated/maxval_i4.c: Regenerate. + * generated/maxval_i8.c: Regenerate. + * generated/maxval_r10.c: Regenerate. + * generated/maxval_r16.c: Regenerate. + * generated/maxval_r17.c: Regenerate. + * generated/maxval_r4.c: Regenerate. + * generated/maxval_r8.c: Regenerate. + * generated/minloc1_16_i1.c: Regenerate. + * generated/minloc1_16_i16.c: Regenerate. + * generated/minloc1_16_i2.c: Regenerate. + * generated/minloc1_16_i4.c: Regenerate. + * generated/minloc1_16_i8.c: Regenerate. + * generated/minloc1_16_r10.c: Regenerate. + * generated/minloc1_16_r16.c: Regenerate. + * generated/minloc1_16_r17.c: Regenerate. + * generated/minloc1_16_r4.c: Regenerate. + * generated/minloc1_16_r8.c: Regenerate. + * generated/minloc1_4_i1.c: Regenerate. + * generated/minloc1_4_i16.c: Regenerate. + * generated/minloc1_4_i2.c: Regenerate. + * generated/minloc1_4_i4.c: Regenerate. + * generated/minloc1_4_i8.c: Regenerate. + * generated/minloc1_4_r10.c: Regenerate. + * generated/minloc1_4_r16.c: Regenerate. + * generated/minloc1_4_r17.c: Regenerate. + * generated/minloc1_4_r4.c: Regenerate. + * generated/minloc1_4_r8.c: Regenerate. + * generated/minloc1_8_i1.c: Regenerate. + * generated/minloc1_8_i16.c: Regenerate. + * generated/minloc1_8_i2.c: Regenerate. + * generated/minloc1_8_i4.c: Regenerate. + * generated/minloc1_8_i8.c: Regenerate. + * generated/minloc1_8_r10.c: Regenerate. + * generated/minloc1_8_r16.c: Regenerate. + * generated/minloc1_8_r17.c: Regenerate. + * generated/minloc1_8_r4.c: Regenerate. + * generated/minloc1_8_r8.c: Regenerate. + * generated/minval_i1.c: Regenerate. + * generated/minval_i16.c: Regenerate. + * generated/minval_i2.c: Regenerate. + * generated/minval_i4.c: Regenerate. + * generated/minval_i8.c: Regenerate. + * generated/minval_r10.c: Regenerate. + * generated/minval_r16.c: Regenerate. + * generated/minval_r17.c: Regenerate. + * generated/minval_r4.c: Regenerate. + * generated/minval_r8.c: Regenerate. + * generated/norm2_r10.c: Regenerate. + * generated/norm2_r16.c: Regenerate. + * generated/norm2_r17.c: Regenerate. + * generated/norm2_r4.c: Regenerate. + * generated/norm2_r8.c: Regenerate. + * generated/parity_l1.c: Regenerate. + * generated/parity_l16.c: Regenerate. + * generated/parity_l2.c: Regenerate. + * generated/parity_l4.c: Regenerate. + * generated/parity_l8.c: Regenerate. + +2025-06-01 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/119856 + * io/format.c (parse_format_list): Set the fmt->error + message for missing comma. + (parse_format): Do not cache the parsed format string + if a previous error ocurred. + +2025-05-13 Jakub Jelinek <jakub@redhat.com> + + PR libfortran/120196 + * m4/ifindloc2.m4 (header1, header2): For back use i > 0 rather than + i >= 0 as for condition. + * generated/findloc2_s1.c: Regenerate. + * generated/findloc2_s4.c: Regenerate. + +2025-05-13 Jakub Jelinek <jakub@redhat.com> + + PR fortran/120191 + * m4/ifunction-s.m4 (SCALAR_ARRAY_FUNCTION): Don't multiply + GFC_DESCRIPTOR_EXTENT(array,) by string_len. + * generated/maxloc1_4_s1.c: Regenerate. + * generated/maxloc1_4_s4.c: Regenerate. + * generated/maxloc1_8_s1.c: Regenerate. + * generated/maxloc1_8_s4.c: Regenerate. + * generated/maxloc1_16_s1.c: Regenerate. + * generated/maxloc1_16_s4.c: Regenerate. + * generated/minloc1_4_s1.c: Regenerate. + * generated/minloc1_4_s4.c: Regenerate. + * generated/minloc1_8_s1.c: Regenerate. + * generated/minloc1_8_s4.c: Regenerate. + * generated/minloc1_16_s1.c: Regenerate. + * generated/minloc1_16_s4.c: Regenerate. + +2025-05-13 Jakub Jelinek <jakub@redhat.com> + + PR fortran/120191 + * m4/maxloc2s.m4: For smaxloc2 call maxloc2 if mask is NULL or *mask. + Swap back and len arguments. + * m4/minloc2s.m4: Likewise. + * generated/maxloc2_4_s1.c: Regenerate. + * generated/maxloc2_4_s4.c: Regenerate. + * generated/maxloc2_8_s1.c: Regenerate. + * generated/maxloc2_8_s4.c: Regenerate. + * generated/maxloc2_16_s1.c: Regenerate. + * generated/maxloc2_16_s4.c: Regenerate. + * generated/minloc2_4_s1.c: Regenerate. + * generated/minloc2_4_s4.c: Regenerate. + * generated/minloc2_8_s1.c: Regenerate. + * generated/minloc2_8_s4.c: Regenerate. + * generated/minloc2_16_s1.c: Regenerate. + * generated/minloc2_16_s4.c: Regenerate. + +2025-05-10 Yuao Ma <c8ef@outlook.com> + + * io/read.c (read_f): Comment typo, explict -> explicit. + +2025-05-08 Jakub Jelinek <jakub@redhat.com> + + PR libfortran/120158 + * m4/iparm.m4 (atype_min): For atype_name starting with + GFC_UINTEGER define to 0. + * generated/maxloc0_16_m1.c: Regenerate. + * generated/maxloc0_16_m2.c: Regenerate. + * generated/maxloc0_16_m4.c: Regenerate. + * generated/maxloc0_16_m8.c: Regenerate. + * generated/maxloc0_16_m16.c: Regenerate. + * generated/maxloc0_4_m1.c: Regenerate. + * generated/maxloc0_4_m2.c: Regenerate. + * generated/maxloc0_4_m4.c: Regenerate. + * generated/maxloc0_4_m8.c: Regenerate. + * generated/maxloc0_4_m16.c: Regenerate. + * generated/maxloc0_8_m1.c: Regenerate. + * generated/maxloc0_8_m2.c: Regenerate. + * generated/maxloc0_8_m4.c: Regenerate. + * generated/maxloc0_8_m8.c: Regenerate. + * generated/maxloc0_8_m16.c: Regenerate. + * generated/maxloc1_16_m1.c: Regenerate. + * generated/maxloc1_16_m2.c: Regenerate. + * generated/maxloc1_16_m4.c: Regenerate. + * generated/maxloc1_16_m8.c: Regenerate. + * generated/maxloc1_16_m16.c: Regenerate. + * generated/maxloc1_4_m1.c: Regenerate. + * generated/maxloc1_4_m2.c: Regenerate. + * generated/maxloc1_4_m4.c: Regenerate. + * generated/maxloc1_4_m8.c: Regenerate. + * generated/maxloc1_4_m16.c: Regenerate. + * generated/maxloc1_8_m1.c: Regenerate. + * generated/maxloc1_8_m2.c: Regenerate. + * generated/maxloc1_8_m4.c: Regenerate. + * generated/maxloc1_8_m8.c: Regenerate. + * generated/maxloc1_8_m16.c: Regenerate. + * generated/maxval_m1.c: Regenerate. + * generated/maxval_m2.c: Regenerate. + * generated/maxval_m4.c: Regenerate. + * generated/maxval_m8.c: Regenerate. + * generated/maxval_m16.c: Regenerate. + +2025-05-07 Jakub Jelinek <jakub@redhat.com> + + PR libfortran/120153 + * Makefile.am (i_maxloc1_c): Add generated/maxloc1_16_m16.c. + * intrinsics/random.c (arandom_m16): Use #ifdef HAVE_GFC_UINTEGER_16 + guard rather than #ifdef GFC_HAVE_GFC_UINTEGER_16. + * gfortran.map (GFORTRAN_15): Remove _gfortran_arandom_m16, + _gfortran_maxloc1_16_m16, _gfortran_mmaxloc1_16_m16 and + _gfortran_smaxloc1_16_m16. + (GFORTRAN_15.2): New symbol version, add those 4 symbols to it. + * generated/maxloc1_16_m16.c: New file. + * Makefile.in: Regenerate. + +2025-05-07 Jakub Jelinek <jakub@redhat.com> + + PR libfortran/120152 + * Makefile.am (i_maxloc1_c): Readd generated/maxloc1_4_i8.c, + generated/maxloc1_8_i8.c, generated/maxloc1_16_i8.c, + generated/maxloc1_4_i16.c, generated/maxloc1_8_i16.c. Move + generated/maxloc1_16_i16.c entry earlier in the list. + * Makefile.in: Regenerated. + +2025-04-22 Andre Vehreschild <vehre@gcc.gnu.org> + + * caf/libcaf.h: Add mapping mode to coarray's register. + * caf/single.c (_gfortran_caf_register): Create a token sharing + another token's memory. + (check_team): Check team parameters to coindexed expressions are + valid. + +2025-04-22 Andre Vehreschild <vehre@gcc.gnu.org> + + * caf/libcaf.h (_gfortran_caf_num_images): Correct prototype. + * caf/single.c (_gfortran_caf_num_images): Default + implementation. + +2025-04-22 Andre Vehreschild <vehre@gcc.gnu.org> + + PR fortran/87326 + * caf/libcaf.h (_gfortran_caf_this_image): Correct prototype. + * caf/single.c (struct caf_single_team): Add new_index of image. + (_gfortran_caf_this_image): Return the image index in the given team. + (_gfortran_caf_form_team): Set new_index in team structure. + +2025-04-22 Andre Vehreschild <vehre@gcc.gnu.org> + + PR fortran/88154 + PR fortran/88960 + PR fortran/97210 + PR fortran/103001 + * caf/libcaf.h: Add constants for get_team's level argument and + update stat values for failed images. + (_gfortran_caf_team_number): Add prototype. + (_gfortran_caf_get_team): Same. + * caf/single.c (_gfortran_caf_team_number): Get the given team's + team number. + (_gfortran_caf_get_team): Get the current team or the team given + by level when the argument is present. + +2025-04-22 Andre Vehreschild <vehre@gcc.gnu.org> + + PR fortran/87326 + PR fortran/87556 + PR fortran/88254 + PR fortran/103796 + * caf/libcaf.h: Remove commented block. + (_gfortran_caf_form_team): Allow for all relevant arguments. + (_gfortran_caf_change_team): Same. + (_gfortran_caf_end_team): Same. + (_gfortran_caf_sync_team): Same. + * caf/single.c (struct caf_single_team): Team handling + structures. + (_gfortran_caf_init): Initialize initial team. + (free_team_list): Free all teams and the memory they hold. + (_gfortran_caf_finalize): Free initial and sibling teams. + (_gfortran_caf_register): Add memory registered to current team. + (_gfortran_caf_deregister): Unregister memory from current team. + (_gfortran_caf_is_present_on_remote): Check token's memptr for + llocation. May have been deallocated by an end team. + (_gfortran_caf_form_team): Push a new team stub to the list. + (_gfortran_caf_change_team): Push a formed team on top of the + ctive teams stack. + (_gfortran_caf_end_team): End the active team, free all memory + allocated during its livespan. + (_gfortran_caf_sync_team): Take stat and errmsg into account. + +2025-04-22 Andre Vehreschild <vehre@gcc.gnu.org> + + PR fortran/87939 + * caf/single.c (_gfortran_caf_lock): Correct stat value, if + lock is already locked by current image. + (_gfortran_caf_unlock): Correct stat value, if lock is not + locked. + +2025-04-13 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libfortran/119502 + * io/close.c (st_close): Issue an error and avoid + calling close_share when there is no stream assigned. + * io/open.c (st_open): If there is no stream assigned + to the unit, unlock the unit and issue an error. + +2025-04-09 Paul Thomas <pault@gcc.gnu.org> + and Harald Anlauf <anlauf@gcc.gnu.org> + + PR libfortran/119460 + * intrinsics/reduce.c (reduce): Correct error message about + mismatch between dim and the rank of array. Output the values + of both. Correct the evaluation of the result stride and + extent. + (reduce_scalar): The front end treats the result as an + allocatable so eliminate memcpy and free. Return the base-addr + of the local descriptor. + (reduce_c): Correct the type of the string lengths. + (reduce_scalar_c): Correct the type of the string lengths.Test + to see if 'res' is allocated. If not then return the base_addr + of the local descriptor. + +2025-04-07 Lulu Cheng <chenglulu@loongson.cn> + + PR target/119408 + * acinclude.m4: When checking for __float128 support, determine + whether the current architecture is LoongArch. If so, return false. + * configure: Regenerate. + 2025-03-22 Hans-Peter Nilsson <hp@axis.com> * intrinsics/reduce.c (reduce_scalar_c): Correct type of parameter DIM. diff --git a/libgfortran/Makefile.am b/libgfortran/Makefile.am index 21b35c7..4f3b303 100644 --- a/libgfortran/Makefile.am +++ b/libgfortran/Makefile.am @@ -240,102 +240,61 @@ runtime/stop.c endif -i_all_c= \ +i_matmul_c= \ +generated/matmul_i1.c \ +generated/matmul_i2.c \ +generated/matmul_i4.c \ +generated/matmul_i8.c \ +generated/matmul_i16.c \ +generated/matmul_r4.c \ +generated/matmul_r8.c \ +generated/matmul_r10.c \ +generated/matmul_r16.c \ +generated/matmul_r17.c \ +generated/matmul_c4.c \ +generated/matmul_c8.c \ +generated/matmul_c10.c \ +generated/matmul_c16.c \ +generated/matmul_c17.c + +i_matmulavx128_c= \ +generated/matmulavx128_i1.c \ +generated/matmulavx128_i2.c \ +generated/matmulavx128_i4.c \ +generated/matmulavx128_i8.c \ +generated/matmulavx128_i16.c \ +generated/matmulavx128_r4.c \ +generated/matmulavx128_r8.c \ +generated/matmulavx128_r10.c \ +generated/matmulavx128_r16.c \ +generated/matmulavx128_r17.c \ +generated/matmulavx128_c4.c \ +generated/matmulavx128_c8.c \ +generated/matmulavx128_c10.c \ +generated/matmulavx128_c16.c \ +generated/matmulavx128_c17.c + +i_matmull_c= \ +generated/matmul_l4.c \ +generated/matmul_l8.c \ +generated/matmul_l16.c + +gfor_built_src= \ generated/all_l1.c \ generated/all_l2.c \ generated/all_l4.c \ generated/all_l8.c \ -generated/all_l16.c - -i_any_c= \ +generated/all_l16.c \ generated/any_l1.c \ generated/any_l2.c \ generated/any_l4.c \ generated/any_l8.c \ -generated/any_l16.c - -i_bessel_c= \ -generated/bessel_r4.c \ -generated/bessel_r8.c \ -generated/bessel_r10.c \ -generated/bessel_r16.c \ -generated/bessel_r17.c - -i_count_c= \ +generated/any_l16.c \ generated/count_1_l.c \ generated/count_2_l.c \ generated/count_4_l.c \ generated/count_8_l.c \ -generated/count_16_l.c - -i_iall_c= \ -generated/iall_i1.c \ -generated/iall_i2.c \ -generated/iall_i4.c \ -generated/iall_i8.c \ -generated/iall_i16.c - -i_iany_c= \ -generated/iany_i1.c \ -generated/iany_i2.c \ -generated/iany_i4.c \ -generated/iany_i8.c \ -generated/iany_i16.c - -i_iparity_c= \ -generated/iparity_i1.c \ -generated/iparity_i2.c \ -generated/iparity_i4.c \ -generated/iparity_i8.c \ -generated/iparity_i16.c - -i_findloc0_c= \ -generated/findloc0_i1.c \ -generated/findloc0_i2.c \ -generated/findloc0_i4.c \ -generated/findloc0_i8.c \ -generated/findloc0_i16.c \ -generated/findloc0_r4.c \ -generated/findloc0_r8.c \ -generated/findloc0_r10.c \ -generated/findloc0_r16.c \ -generated/findloc0_r17.c \ -generated/findloc0_c4.c \ -generated/findloc0_c8.c \ -generated/findloc0_c10.c \ -generated/findloc0_c16.c \ -generated/findloc0_c17.c - -i_findloc0s_c= \ -generated/findloc0_s1.c \ -generated/findloc0_s4.c - -i_findloc1_c= \ -generated/findloc1_i1.c \ -generated/findloc1_i2.c \ -generated/findloc1_i4.c \ -generated/findloc1_i8.c \ -generated/findloc1_i16.c \ -generated/findloc1_r4.c \ -generated/findloc1_r8.c \ -generated/findloc1_r10.c \ -generated/findloc1_r16.c \ -generated/findloc1_r17.c \ -generated/findloc1_c4.c \ -generated/findloc1_c8.c \ -generated/findloc1_c10.c \ -generated/findloc1_c16.c \ -generated/findloc1_c17.c - -i_findloc1s_c= \ -generated/findloc1_s1.c \ -generated/findloc1_s4.c - -i_findloc2s_c= \ -generated/findloc2_s1.c \ -generated/findloc2_s4.c - -i_maxloc0_c= \ +generated/count_16_l.c \ generated/maxloc0_4_i1.c \ generated/maxloc0_8_i1.c \ generated/maxloc0_16_i1.c \ @@ -380,17 +339,7 @@ generated/maxloc0_8_r16.c \ generated/maxloc0_16_r16.c \ generated/maxloc0_4_r17.c \ generated/maxloc0_8_r17.c \ -generated/maxloc0_16_r17.c - -i_maxloc0s_c = \ -generated/maxloc0_4_s1.c \ -generated/maxloc0_4_s4.c \ -generated/maxloc0_8_s1.c \ -generated/maxloc0_8_s4.c \ -generated/maxloc0_16_s1.c \ -generated/maxloc0_16_s4.c - -i_maxloc1_c= \ +generated/maxloc0_16_r17.c \ generated/maxloc1_4_i1.c \ generated/maxloc1_8_i1.c \ generated/maxloc1_16_i1.c \ @@ -400,6 +349,12 @@ generated/maxloc1_16_i2.c \ generated/maxloc1_4_i4.c \ generated/maxloc1_8_i4.c \ generated/maxloc1_16_i4.c \ +generated/maxloc1_4_i8.c \ +generated/maxloc1_8_i8.c \ +generated/maxloc1_16_i8.c \ +generated/maxloc1_4_i16.c \ +generated/maxloc1_8_i16.c \ +generated/maxloc1_16_i16.c \ generated/maxloc1_4_m1.c \ generated/maxloc1_8_m1.c \ generated/maxloc1_16_m1.c \ @@ -414,7 +369,7 @@ generated/maxloc1_8_m8.c \ generated/maxloc1_16_m8.c \ generated/maxloc1_4_m16.c \ generated/maxloc1_8_m16.c \ -generated/maxloc1_16_i16.c \ +generated/maxloc1_16_m16.c \ generated/maxloc1_4_r4.c \ generated/maxloc1_8_r4.c \ generated/maxloc1_16_r4.c \ @@ -429,25 +384,7 @@ generated/maxloc1_8_r16.c \ generated/maxloc1_16_r16.c \ generated/maxloc1_4_r17.c \ generated/maxloc1_8_r17.c \ -generated/maxloc1_16_r17.c - -i_maxloc1s_c= \ -generated/maxloc1_4_s1.c \ -generated/maxloc1_4_s4.c \ -generated/maxloc1_8_s1.c \ -generated/maxloc1_8_s4.c \ -generated/maxloc1_16_s1.c \ -generated/maxloc1_16_s4.c - -i_maxloc2s_c= \ -generated/maxloc2_4_s1.c \ -generated/maxloc2_4_s4.c \ -generated/maxloc2_8_s1.c \ -generated/maxloc2_8_s4.c \ -generated/maxloc2_16_s1.c \ -generated/maxloc2_16_s4.c - -i_maxval_c= \ +generated/maxloc1_16_r17.c \ generated/maxval_i1.c \ generated/maxval_i2.c \ generated/maxval_i4.c \ @@ -462,17 +399,7 @@ generated/maxval_r4.c \ generated/maxval_r8.c \ generated/maxval_r10.c \ generated/maxval_r16.c \ -generated/maxval_r17.c - -i_maxval0s_c=\ -generated/maxval0_s1.c \ -generated/maxval0_s4.c - -i_maxval1s_c=\ -generated/maxval1_s1.c \ -generated/maxval1_s4.c - -i_minloc0_c= \ +generated/maxval_r17.c \ generated/minloc0_4_i1.c \ generated/minloc0_8_i1.c \ generated/minloc0_16_i1.c \ @@ -517,17 +444,7 @@ generated/minloc0_8_r16.c \ generated/minloc0_16_r16.c \ generated/minloc0_4_r17.c \ generated/minloc0_8_r17.c \ -generated/minloc0_16_r17.c - -i_minloc0s_c = \ -generated/minloc0_4_s1.c \ -generated/minloc0_4_s4.c \ -generated/minloc0_8_s1.c \ -generated/minloc0_8_s4.c \ -generated/minloc0_16_s1.c \ -generated/minloc0_16_s4.c - -i_minloc1_c= \ +generated/minloc0_16_r17.c \ generated/minloc1_4_i1.c \ generated/minloc1_8_i1.c \ generated/minloc1_16_i1.c \ @@ -572,25 +489,7 @@ generated/minloc1_8_r16.c \ generated/minloc1_16_r16.c \ generated/minloc1_4_r17.c \ generated/minloc1_8_r17.c \ -generated/minloc1_16_r17.c - -i_minloc1s_c= \ -generated/minloc1_4_s1.c \ -generated/minloc1_4_s4.c \ -generated/minloc1_8_s1.c \ -generated/minloc1_8_s4.c \ -generated/minloc1_16_s1.c \ -generated/minloc1_16_s4.c - -i_minloc2s_c= \ -generated/minloc2_4_s1.c \ -generated/minloc2_4_s4.c \ -generated/minloc2_8_s1.c \ -generated/minloc2_8_s4.c \ -generated/minloc2_16_s1.c \ -generated/minloc2_16_s4.c - -i_minval_c= \ +generated/minloc1_16_r17.c \ generated/minval_i1.c \ generated/minval_i2.c \ generated/minval_i4.c \ @@ -605,48 +504,7 @@ generated/minval_r4.c \ generated/minval_r8.c \ generated/minval_r10.c \ generated/minval_r16.c \ -generated/minval_r17.c - -i_minval0s_c=\ -generated/minval0_s1.c \ -generated/minval0_s4.c - -i_minval1s_c=\ -generated/minval1_s1.c \ -generated/minval1_s4.c - -i_norm2_c= \ -generated/norm2_r4.c \ -generated/norm2_r8.c \ -generated/norm2_r10.c \ -generated/norm2_r16.c \ -generated/norm2_r17.c - -i_parity_c = \ -generated/parity_l1.c \ -generated/parity_l2.c \ -generated/parity_l4.c \ -generated/parity_l8.c \ -generated/parity_l16.c - -i_sum_c= \ -generated/sum_i1.c \ -generated/sum_i2.c \ -generated/sum_i4.c \ -generated/sum_i8.c \ -generated/sum_i16.c \ -generated/sum_r4.c \ -generated/sum_r8.c \ -generated/sum_r10.c \ -generated/sum_r16.c \ -generated/sum_r17.c \ -generated/sum_c4.c \ -generated/sum_c8.c \ -generated/sum_c10.c \ -generated/sum_c16.c \ -generated/sum_c17.c - -i_product_c= \ +generated/minval_r17.c \ generated/product_i1.c \ generated/product_i2.c \ generated/product_i4.c \ @@ -661,55 +519,66 @@ generated/product_c4.c \ generated/product_c8.c \ generated/product_c10.c \ generated/product_c16.c \ -generated/product_c17.c - -i_matmul_c= \ -generated/matmul_i1.c \ -generated/matmul_i2.c \ -generated/matmul_i4.c \ -generated/matmul_i8.c \ -generated/matmul_i16.c \ -generated/matmul_r4.c \ -generated/matmul_r8.c \ -generated/matmul_r10.c \ -generated/matmul_r16.c \ -generated/matmul_r17.c \ -generated/matmul_c4.c \ -generated/matmul_c8.c \ -generated/matmul_c10.c \ -generated/matmul_c16.c \ -generated/matmul_c17.c - -i_matmulavx128_c= \ -generated/matmulavx128_i1.c \ -generated/matmulavx128_i2.c \ -generated/matmulavx128_i4.c \ -generated/matmulavx128_i8.c \ -generated/matmulavx128_i16.c \ -generated/matmulavx128_r4.c \ -generated/matmulavx128_r8.c \ -generated/matmulavx128_r10.c \ -generated/matmulavx128_r16.c \ -generated/matmulavx128_r17.c \ -generated/matmulavx128_c4.c \ -generated/matmulavx128_c8.c \ -generated/matmulavx128_c10.c \ -generated/matmulavx128_c16.c \ -generated/matmulavx128_c17.c - -i_matmull_c= \ -generated/matmul_l4.c \ -generated/matmul_l8.c \ -generated/matmul_l16.c - -i_shape_c= \ +generated/product_c17.c \ +generated/sum_i1.c \ +generated/sum_i2.c \ +generated/sum_i4.c \ +generated/sum_i8.c \ +generated/sum_i16.c \ +generated/sum_r4.c \ +generated/sum_r8.c \ +generated/sum_r10.c \ +generated/sum_r16.c \ +generated/sum_r17.c \ +generated/sum_c4.c \ +generated/sum_c8.c \ +generated/sum_c10.c \ +generated/sum_c16.c \ +generated/sum_c17.c \ +generated/bessel_r4.c \ +generated/bessel_r8.c \ +generated/bessel_r10.c \ +generated/bessel_r16.c \ +generated/bessel_r17.c \ +generated/iall_i1.c \ +generated/iall_i2.c \ +generated/iall_i4.c \ +generated/iall_i8.c \ +generated/iall_i16.c \ +generated/iany_i1.c \ +generated/iany_i2.c \ +generated/iany_i4.c \ +generated/iany_i8.c \ +generated/iany_i16.c \ +generated/iparity_i1.c \ +generated/iparity_i2.c \ +generated/iparity_i4.c \ +generated/iparity_i8.c \ +generated/iparity_i16.c \ +generated/norm2_r4.c \ +generated/norm2_r8.c \ +generated/norm2_r10.c \ +generated/norm2_r16.c \ +generated/norm2_r17.c \ +generated/parity_l1.c \ +generated/parity_l2.c \ +generated/parity_l4.c \ +generated/parity_l8.c \ +generated/parity_l16.c \ generated/shape_i1.c \ generated/shape_i2.c \ generated/shape_i4.c \ generated/shape_i8.c \ -generated/shape_i16.c - -i_reshape_c= \ +generated/shape_i16.c \ +generated/eoshift1_4.c \ +generated/eoshift1_8.c \ +generated/eoshift1_16.c \ +generated/eoshift3_4.c \ +generated/eoshift3_8.c \ +generated/eoshift3_16.c \ +generated/cshift1_4.c \ +generated/cshift1_8.c \ +generated/cshift1_16.c \ generated/reshape_i4.c \ generated/reshape_i8.c \ generated/reshape_i16.c \ @@ -722,88 +591,7 @@ generated/reshape_c4.c \ generated/reshape_c8.c \ generated/reshape_c10.c \ generated/reshape_c16.c \ -generated/reshape_c17.c - -i_eoshift1_c= \ -generated/eoshift1_4.c \ -generated/eoshift1_8.c \ -generated/eoshift1_16.c - -i_eoshift3_c= \ -generated/eoshift3_4.c \ -generated/eoshift3_8.c \ -generated/eoshift3_16.c - -i_cshift0_c= \ -generated/cshift0_i1.c \ -generated/cshift0_i2.c \ -generated/cshift0_i4.c \ -generated/cshift0_i8.c \ -generated/cshift0_i16.c \ -generated/cshift0_r4.c \ -generated/cshift0_r8.c \ -generated/cshift0_r10.c \ -generated/cshift0_r16.c \ -generated/cshift0_r17.c \ -generated/cshift0_c4.c \ -generated/cshift0_c8.c \ -generated/cshift0_c10.c \ -generated/cshift0_c16.c \ -generated/cshift0_c17.c - -i_cshift1_c= \ -generated/cshift1_4.c \ -generated/cshift1_8.c \ -generated/cshift1_16.c - -i_cshift1a_c = \ -generated/cshift1_4_i1.c \ -generated/cshift1_4_i2.c \ -generated/cshift1_4_i4.c \ -generated/cshift1_4_i8.c \ -generated/cshift1_4_i16.c \ -generated/cshift1_4_r4.c \ -generated/cshift1_4_r8.c \ -generated/cshift1_4_r10.c \ -generated/cshift1_4_r16.c \ -generated/cshift1_4_r17.c \ -generated/cshift1_4_c4.c \ -generated/cshift1_4_c8.c \ -generated/cshift1_4_c10.c \ -generated/cshift1_4_c16.c \ -generated/cshift1_4_c17.c \ -generated/cshift1_8_i1.c \ -generated/cshift1_8_i2.c \ -generated/cshift1_8_i4.c \ -generated/cshift1_8_i8.c \ -generated/cshift1_8_i16.c \ -generated/cshift1_8_r4.c \ -generated/cshift1_8_r8.c \ -generated/cshift1_8_r10.c \ -generated/cshift1_8_r16.c \ -generated/cshift1_8_r17.c \ -generated/cshift1_8_c4.c \ -generated/cshift1_8_c8.c \ -generated/cshift1_8_c10.c \ -generated/cshift1_8_c16.c \ -generated/cshift1_8_c17.c \ -generated/cshift1_16_i1.c \ -generated/cshift1_16_i2.c \ -generated/cshift1_16_i4.c \ -generated/cshift1_16_i8.c \ -generated/cshift1_16_i16.c \ -generated/cshift1_16_r4.c \ -generated/cshift1_16_r8.c \ -generated/cshift1_16_r10.c \ -generated/cshift1_16_r16.c \ -generated/cshift1_16_r17.c \ -generated/cshift1_16_c4.c \ -generated/cshift1_16_c8.c \ -generated/cshift1_16_c10.c \ -generated/cshift1_16_c16.c \ -generated/cshift1_16_c17.c - -in_pack_c = \ +generated/reshape_c17.c \ generated/in_pack_i1.c \ generated/in_pack_i2.c \ generated/in_pack_i4.c \ @@ -818,9 +606,7 @@ generated/in_pack_c4.c \ generated/in_pack_c8.c \ generated/in_pack_c10.c \ generated/in_pack_c16.c \ -generated/in_pack_c17.c - -in_unpack_c = \ +generated/in_pack_c17.c \ generated/in_unpack_i1.c \ generated/in_unpack_i2.c \ generated/in_unpack_i4.c \ @@ -835,9 +621,7 @@ generated/in_unpack_c4.c \ generated/in_unpack_c8.c \ generated/in_unpack_c10.c \ generated/in_unpack_c16.c \ -generated/in_unpack_c17.c - -i_pow_c = \ +generated/in_unpack_c17.c \ generated/pow_i4_i4.c \ generated/pow_i8_i4.c \ generated/pow_i16_i4.c \ @@ -873,36 +657,7 @@ generated/pow_c4_i16.c \ generated/pow_c8_i16.c \ generated/pow_c10_i16.c \ generated/pow_c16_i16.c \ -generated/pow_c17_i16.c - -i_powu_c = \ -generated/pow_m1_m1.c \ -generated/pow_m1_m2.c \ -generated/pow_m1_m4.c \ -generated/pow_m1_m8.c \ -generated/pow_m1_m16.c \ -generated/pow_m2_m1.c \ -generated/pow_m2_m2.c \ -generated/pow_m2_m4.c \ -generated/pow_m2_m8.c \ -generated/pow_m2_m16.c \ -generated/pow_m4_m1.c \ -generated/pow_m4_m2.c \ -generated/pow_m4_m4.c \ -generated/pow_m4_m8.c \ -generated/pow_m4_m16.c \ -generated/pow_m8_m1.c \ -generated/pow_m8_m2.c \ -generated/pow_m8_m4.c \ -generated/pow_m8_m8.c \ -generated/pow_m8_m16.c \ -generated/pow_m16_m1.c \ -generated/pow_m16_m2.c \ -generated/pow_m16_m4.c \ -generated/pow_m16_m8.c \ -generated/pow_m16_m16.c - -i_pack_c = \ +generated/pow_c17_i16.c \ generated/pack_i1.c \ generated/pack_i2.c \ generated/pack_i4.c \ @@ -917,9 +672,7 @@ generated/pack_c4.c \ generated/pack_c8.c \ generated/pack_c10.c \ generated/pack_c16.c \ -generated/pack_c17.c - -i_unpack_c = \ +generated/pack_c17.c \ generated/unpack_i1.c \ generated/unpack_i2.c \ generated/unpack_i4.c \ @@ -934,9 +687,7 @@ generated/unpack_c4.c \ generated/unpack_c8.c \ generated/unpack_c10.c \ generated/unpack_c16.c \ -generated/unpack_c17.c - -i_spread_c = \ +generated/unpack_c17.c \ generated/spread_i1.c \ generated/spread_i2.c \ generated/spread_i4.c \ @@ -951,43 +702,179 @@ generated/spread_c4.c \ generated/spread_c8.c \ generated/spread_c10.c \ generated/spread_c16.c \ -generated/spread_c17.c - -i_isobinding_c = \ -runtime/ISO_Fortran_binding.c - -m4_files= m4/iparm.m4 m4/ifunction.m4 m4/iforeach.m4 m4/all.m4 \ - m4/any.m4 m4/count.m4 m4/maxloc0.m4 m4/maxloc1.m4 m4/maxval.m4 \ - m4/minloc0.m4 m4/minloc1.m4 m4/minval.m4 m4/product.m4 m4/sum.m4 \ - m4/matmul.m4 m4/matmull.m4 m4/ifunction_logical.m4 \ - m4/ctrig.m4 m4/cexp.m4 m4/chyp.m4 m4/mtype.m4 \ - m4/specific.m4 m4/specific2.m4 m4/head.m4 m4/shape.m4 m4/reshape.m4 \ - m4/eoshift1.m4 m4/eoshift3.m4 \ - m4/pow.m4 \ - m4/misc_specifics.m4 m4/pack.m4 \ - m4/unpack.m4 m4/spread.m4 m4/bessel.m4 m4/norm2.m4 m4/parity.m4 \ - m4/iall.m4 m4/iany.m4 m4/iparity.m4 m4/iforeach-s.m4 m4/findloc0.m4 \ - m4/findloc0s.m4 m4/ifindloc0.m4 m4/findloc1.m4 m4/ifindloc1.m4 \ - m4/findloc2s.m4 m4/ifindloc2.m4 - -gfor_built_src= $(i_all_c) $(i_any_c) $(i_count_c) $(i_maxloc0_c) \ - $(i_maxloc1_c) $(i_maxval_c) $(i_minloc0_c) $(i_minloc1_c) $(i_minval_c) \ - $(i_product_c) $(i_sum_c) $(i_bessel_c) $(i_iall_c) $(i_iany_c) \ - $(i_iparity_c) $(i_norm2_c) $(i_parity_c) \ - $(i_matmul_c) $(i_matmull_c) $(i_shape_c) $(i_eoshift1_c) \ - $(i_eoshift3_c) $(i_cshift1_c) $(i_reshape_c) $(in_pack_c) $(in_unpack_c) \ - $(i_pow_c) $(i_pack_c) $(i_unpack_c) $(i_matmulavx128_c) \ - $(i_spread_c) selected_int_kind.inc selected_real_kind.inc kinds.h \ - $(i_cshift0_c) kinds.inc c99_protos.inc fpu-target.h fpu-target.inc \ - include/ISO_Fortran_binding.h \ - $(i_cshift1a_c) $(i_maxloc0s_c) $(i_minloc0s_c) $(i_maxloc1s_c) \ - $(i_minloc1s_c) $(i_maxloc2s_c) $(i_minloc2s_c) $(i_maxvals_c) \ - $(i_maxval0s_c) $(i_minval0s_c) $(i_maxval1s_c) $(i_minval1s_c) \ - $(i_findloc0_c) $(i_findloc0s_c) $(i_findloc1_c) $(i_findloc1s_c) \ - $(i_findloc2s_c) $(i_isobinding_c) $(i_powu_c) - -# Machine generated specifics -gfor_built_specific_src= \ +generated/spread_c17.c \ +generated/cshift0_i1.c \ +generated/cshift0_i2.c \ +generated/cshift0_i4.c \ +generated/cshift0_i8.c \ +generated/cshift0_i16.c \ +generated/cshift0_r4.c \ +generated/cshift0_r8.c \ +generated/cshift0_r10.c \ +generated/cshift0_r16.c \ +generated/cshift0_r17.c \ +generated/cshift0_c4.c \ +generated/cshift0_c8.c \ +generated/cshift0_c10.c \ +generated/cshift0_c16.c \ +generated/cshift0_c17.c \ +generated/cshift1_4_i1.c \ +generated/cshift1_4_i2.c \ +generated/cshift1_4_i4.c \ +generated/cshift1_4_i8.c \ +generated/cshift1_4_i16.c \ +generated/cshift1_4_r4.c \ +generated/cshift1_4_r8.c \ +generated/cshift1_4_r10.c \ +generated/cshift1_4_r16.c \ +generated/cshift1_4_r17.c \ +generated/cshift1_4_c4.c \ +generated/cshift1_4_c8.c \ +generated/cshift1_4_c10.c \ +generated/cshift1_4_c16.c \ +generated/cshift1_4_c17.c \ +generated/cshift1_8_i1.c \ +generated/cshift1_8_i2.c \ +generated/cshift1_8_i4.c \ +generated/cshift1_8_i8.c \ +generated/cshift1_8_i16.c \ +generated/cshift1_8_r4.c \ +generated/cshift1_8_r8.c \ +generated/cshift1_8_r10.c \ +generated/cshift1_8_r16.c \ +generated/cshift1_8_r17.c \ +generated/cshift1_8_c4.c \ +generated/cshift1_8_c8.c \ +generated/cshift1_8_c10.c \ +generated/cshift1_8_c16.c \ +generated/cshift1_8_c17.c \ +generated/cshift1_16_i1.c \ +generated/cshift1_16_i2.c \ +generated/cshift1_16_i4.c \ +generated/cshift1_16_i8.c \ +generated/cshift1_16_i16.c \ +generated/cshift1_16_r4.c \ +generated/cshift1_16_r8.c \ +generated/cshift1_16_r10.c \ +generated/cshift1_16_r16.c \ +generated/cshift1_16_r17.c \ +generated/cshift1_16_c4.c \ +generated/cshift1_16_c8.c \ +generated/cshift1_16_c10.c \ +generated/cshift1_16_c16.c \ +generated/cshift1_16_c17.c \ +generated/findloc0_i1.c \ +generated/findloc0_i2.c \ +generated/findloc0_i4.c \ +generated/findloc0_i8.c \ +generated/findloc0_i16.c \ +generated/findloc0_r4.c \ +generated/findloc0_r8.c \ +generated/findloc0_r10.c \ +generated/findloc0_r16.c \ +generated/findloc0_r17.c \ +generated/findloc0_c4.c \ +generated/findloc0_c8.c \ +generated/findloc0_c10.c \ +generated/findloc0_c16.c \ +generated/findloc0_c17.c \ +generated/findloc0_s1.c \ +generated/findloc0_s4.c \ +generated/findloc1_i1.c \ +generated/findloc1_i2.c \ +generated/findloc1_i4.c \ +generated/findloc1_i8.c \ +generated/findloc1_i16.c \ +generated/findloc1_r4.c \ +generated/findloc1_r8.c \ +generated/findloc1_r10.c \ +generated/findloc1_r16.c \ +generated/findloc1_r17.c \ +generated/findloc1_c4.c \ +generated/findloc1_c8.c \ +generated/findloc1_c10.c \ +generated/findloc1_c16.c \ +generated/findloc1_c17.c \ +generated/findloc1_s1.c \ +generated/findloc1_s4.c \ +generated/findloc2_s1.c \ +generated/findloc2_s4.c \ +generated/maxloc0_4_s1.c \ +generated/maxloc0_4_s4.c \ +generated/maxloc0_8_s1.c \ +generated/maxloc0_8_s4.c \ +generated/maxloc0_16_s1.c \ +generated/maxloc0_16_s4.c \ +generated/maxloc1_4_s1.c \ +generated/maxloc1_4_s4.c \ +generated/maxloc1_8_s1.c \ +generated/maxloc1_8_s4.c \ +generated/maxloc1_16_s1.c \ +generated/maxloc1_16_s4.c \ +generated/maxloc2_4_s1.c \ +generated/maxloc2_4_s4.c \ +generated/maxloc2_8_s1.c \ +generated/maxloc2_8_s4.c \ +generated/maxloc2_16_s1.c \ +generated/maxloc2_16_s4.c \ +generated/maxval0_s1.c \ +generated/maxval0_s4.c \ +generated/maxval1_s1.c \ +generated/maxval1_s4.c \ +generated/minloc0_4_s1.c \ +generated/minloc0_4_s4.c \ +generated/minloc0_8_s1.c \ +generated/minloc0_8_s4.c \ +generated/minloc0_16_s1.c \ +generated/minloc0_16_s4.c \ +generated/minloc1_4_s1.c \ +generated/minloc1_4_s4.c \ +generated/minloc1_8_s1.c \ +generated/minloc1_8_s4.c \ +generated/minloc1_16_s1.c \ +generated/minloc1_16_s4.c \ +generated/minloc2_4_s1.c \ +generated/minloc2_4_s4.c \ +generated/minloc2_8_s1.c \ +generated/minloc2_8_s4.c \ +generated/minloc2_16_s1.c \ +generated/minloc2_16_s4.c \ +generated/minval0_s1.c \ +generated/minval0_s4.c \ +generated/minval1_s1.c \ +generated/minval1_s4.c \ +generated/pow_m1_m1.c \ +generated/pow_m1_m2.c \ +generated/pow_m1_m4.c \ +generated/pow_m1_m8.c \ +generated/pow_m1_m16.c \ +generated/pow_m2_m1.c \ +generated/pow_m2_m2.c \ +generated/pow_m2_m4.c \ +generated/pow_m2_m8.c \ +generated/pow_m2_m16.c \ +generated/pow_m4_m1.c \ +generated/pow_m4_m2.c \ +generated/pow_m4_m4.c \ +generated/pow_m4_m8.c \ +generated/pow_m4_m16.c \ +generated/pow_m8_m1.c \ +generated/pow_m8_m2.c \ +generated/pow_m8_m4.c \ +generated/pow_m8_m8.c \ +generated/pow_m8_m16.c \ +generated/pow_m16_m1.c \ +generated/pow_m16_m2.c \ +generated/pow_m16_m4.c \ +generated/pow_m16_m8.c \ +generated/pow_m16_m16.c \ +$(i_matmul_c) $(i_matmull_c) $(i_matmulavx128_c) \ +selected_int_kind.inc selected_real_kind.inc kinds.h \ +kinds.inc c99_protos.inc fpu-target.h fpu-target.inc \ +include/ISO_Fortran_binding.h runtime/ISO_Fortran_binding.c + +# Specifics +gfor_specific_src= \ generated/_abs_c4.F90 \ generated/_abs_c8.F90 \ generated/_abs_c10.F90 \ @@ -1125,9 +1012,7 @@ generated/_anint_r4.F90 \ generated/_anint_r8.F90 \ generated/_anint_r10.F90 \ generated/_anint_r16.F90 \ -generated/_anint_r17.F90 - -gfor_built_specific2_src= \ +generated/_anint_r17.F90 \ generated/_sign_i4.F90 \ generated/_sign_i8.F90 \ generated/_sign_i16.F90 \ @@ -1156,14 +1041,8 @@ generated/_mod_r4.F90 \ generated/_mod_r8.F90 \ generated/_mod_r10.F90 \ generated/_mod_r16.F90 \ -generated/_mod_r17.F90 - -gfor_misc_specifics = generated/misc_specifics.F90 - -gfor_specific_src= \ -$(gfor_built_specific_src) \ -$(gfor_built_specific2_src) \ -$(gfor_misc_specifics) \ +generated/_mod_r17.F90 \ +generated/misc_specifics.F90 \ intrinsics/dprod_r8.f90 \ intrinsics/f2c_specifics.F90 \ intrinsics/random_init.f90 @@ -1215,24 +1094,11 @@ ieee_exceptions.mod: ieee/ieee_exceptions.lo ieee_arithmetic.mod: ieee/ieee_arithmetic.lo : -BUILT_SOURCES=$(gfor_built_src) $(gfor_built_specific_src) \ - $(gfor_built_specific2_src) $(gfor_misc_specifics) +BUILT_SOURCES=$(gfor_built_src) libgfortran_la_SOURCES = $(gfor_src) $(gfor_built_src) $(gfor_io_src) \ $(gfor_helper_src) $(gfor_ieee_src) $(gfor_io_headers) $(gfor_specific_src) -I_M4_DEPS=m4/iparm.m4 m4/mtype.m4 -I_M4_DEPS0=$(I_M4_DEPS) m4/iforeach.m4 -I_M4_DEPS1=$(I_M4_DEPS) m4/ifunction.m4 -I_M4_DEPS2=$(I_M4_DEPS) m4/ifunction_logical.m4 -I_M4_DEPS3=$(I_M4_DEPS) m4/iforeach-s.m4 -I_M4_DEPS4=$(I_M4_DEPS) m4/ifunction-s.m4 -I_M4_DEPS5=$(I_M4_DEPS) m4/iforeach-s2.m4 -I_M4_DEPS6=$(I_M4_DEPS) m4/ifunction-s2.m4 -I_M4_DEPS7=$(I_M4_DEPS) m4/ifindloc0.m4 -I_M4_DEPS8=$(I_M4_DEPS) m4/ifindloc1.m4 -I_M4_DEPS9=$(I_M4_DEPS) m4/ifindloc2.m4 - kinds.h: $(srcdir)/mk-kinds-h.sh $(SHELL) $(srcdir)/mk-kinds-h.sh '@LIBGOMP_CHECKED_INT_KINDS@' \ '@LIBGOMP_CHECKED_REAL_KINDS@' \ @@ -1265,172 +1131,10 @@ include/ISO_Fortran_binding.h: $(srcdir)/ISO_Fortran_binding.h $(MKDIR_P) include cp $(srcdir)/ISO_Fortran_binding.h $@ -## A 'normal' build shouldn't need to regenerate these -## so we only include them in maintainer mode - -if MAINTAINER_MODE -$(i_all_c): m4/all.m4 $(I_M4_DEPS2) - $(M4) -Dfile=$@ -I$(srcdir)/m4 all.m4 > $@ - -$(i_bessel_c): m4/bessel.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 bessel.m4 > $@ - -$(i_any_c): m4/any.m4 $(I_M4_DEPS2) - $(M4) -Dfile=$@ -I$(srcdir)/m4 any.m4 > $@ - -$(i_count_c): m4/count.m4 $(I_M4_DEPS2) - $(M4) -Dfile=$@ -I$(srcdir)/m4 count.m4 > $@ - -$(i_findloc0_c): m4/findloc0.m4 $(I_M4_DEPS7) - $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc0.m4 > $@ - -$(i_findloc0s_c): m4/findloc0s.m4 $(I_M4_DEPS7) - $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc0s.m4 > $@ - -$(i_findloc1_c): m4/findloc1.m4 $(I_M4_DEPS8) - $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc1.m4 > $@ - -$(i_findloc1s_c): m4/findloc1s.m4 $(I_M4_DEPS8) - $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc1s.m4 > $@ - -$(i_findloc2s_c): m4/findloc2s.m4 $(I_M4_DEPS9) - $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc2s.m4 > $@ - -$(i_iall_c): m4/iall.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 iall.m4 > $@ - -$(i_iany_c): m4/iany.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 iany.m4 > $@ - -$(i_iparity_c): m4/iparity.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 iparity.m4 > $@ - -$(i_maxloc0_c): m4/maxloc0.m4 $(I_M4_DEPS0) - $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc0.m4 > $@ - -$(i_maxloc0s_c) : m4/maxloc0s.m4 $(I_M4_DEPS3) - $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc0s.m4 > $@ - -$(i_maxloc1_c): m4/maxloc1.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc1.m4 > $@ - -$(i_maxloc1s_c): m4/maxloc1s.m4 $(I_M4_DEPS4) - $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc1s.m4 > $@ - -$(i_maxloc2s_c): m4/maxloc2s.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc2s.m4 > $@ - -$(i_maxval_c): m4/maxval.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 maxval.m4 > $@ - -$(i_maxval0s_c): m4/maxval0s.m4 $(I_M4_DEPS5) - $(M4) -Dfile=$@ -I$(srcdir)/m4 maxval0s.m4 > $@ - -$(i_maxval1s_c): m4/maxval1s.m4 $(I_M4_DEPS6) - $(M4) -Dfile=$@ -I$(srcdir)/m4 maxval1s.m4 > $@ - -$(i_minloc0_c): m4/minloc0.m4 $(I_M4_DEPS0) - $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc0.m4 > $@ - -$(i_minloc0s_c) : m4/minloc0s.m4 $(I_M4_DEPS3) - $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc0s.m4 > $@ - -$(i_minloc1_c): m4/minloc1.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc1.m4 > $@ - -$(i_minloc1s_c): m4/minloc1s.m4 $(I_M4_DEPS4) - $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc1s.m4 > $@ - -$(i_minloc2s_c): m4/minloc2s.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc2s.m4 > $@ - -$(i_minval_c): m4/minval.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 minval.m4 > $@ - -$(i_minval0s_c): m4/minval0s.m4 $(I_M4_DEPS5) - $(M4) -Dfile=$@ -I$(srcdir)/m4 minval0s.m4 > $@ - -$(i_minval1s_c): m4/minval1s.m4 $(I_M4_DEPS6) - $(M4) -Dfile=$@ -I$(srcdir)/m4 minval1s.m4 > $@ - -$(i_product_c): m4/product.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 product.m4 > $@ - -$(i_sum_c): m4/sum.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 sum.m4 > $@ - -$(i_matmul_c): m4/matmul.m4 m4/matmul_internal.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 matmul.m4 > $@ - -$(i_matmulavx128_c): m4/matmulavx128.m4 m4/matmul_internal.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 matmulavx128.m4 > $@ - -$(i_matmull_c): m4/matmull.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 matmull.m4 > $@ - -$(i_norm2_c): m4/norm2.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 norm2.m4 > $@ - -$(i_parity_c): m4/parity.m4 $(I_M4_DEPS1) - $(M4) -Dfile=$@ -I$(srcdir)/m4 parity.m4 > $@ - -$(i_shape_c): m4/shape.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 shape.m4 > $@ - -$(i_reshape_c): m4/reshape.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 reshape.m4 > $@ - -$(i_eoshift1_c): m4/eoshift1.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 eoshift1.m4 > $@ - -$(i_eoshift3_c): m4/eoshift3.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 eoshift3.m4 > $@ - -$(i_cshift0_c): m4/cshift0.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 cshift0.m4 > $@ - -$(i_cshift1_c): m4/cshift1.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 cshift1.m4 > $@ - -$(i_cshift1a_c): m4/cshift1a.m4 $(I_M$_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 cshift1a.m4 > $@ - -$(in_pack_c): m4/in_pack.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 in_pack.m4 > $@ - -$(in_unpack_c): m4/in_unpack.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 in_unpack.m4 > $@ - -$(i_pow_c): m4/pow.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 pow.m4 > $@ - -$(i_powu_c): m4/powu.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 powu.m4 > $@ - -$(i_pack_c): m4/pack.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 pack.m4 > $@ - -$(i_unpack_c): m4/unpack.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 unpack.m4 > $@ - -$(i_spread_c): m4/spread.m4 $(I_M4_DEPS) - $(M4) -Dfile=$@ -I$(srcdir)/m4 spread.m4 > $@ - -$(gfor_built_specific_src): m4/specific.m4 m4/head.m4 - $(M4) -Dfile=$@ -I$(srcdir)/m4 specific.m4 > $@ - -$(gfor_built_specific2_src): m4/specific2.m4 m4/head.m4 - $(M4) -Dfile=$@ -I$(srcdir)/m4 specific2.m4 > $@ - -$(gfor_misc_specifics): m4/misc_specifics.m4 m4/head.m4 - $(M4) -Dfile=$@ -I$(srcdir)/m4 misc_specifics.m4 > $@ -## end of maintainer mode only rules -endif - clean-local: -rm -rf include $(version_dep) -EXTRA_DIST = $(m4_files) +EXTRA_DIST = m4 # target overrides -include $(tmake_file) diff --git a/libgfortran/Makefile.in b/libgfortran/Makefile.in index 6a63d88..dd88f88 100644 --- a/libgfortran/Makefile.in +++ b/libgfortran/Makefile.in @@ -231,48 +231,68 @@ libgfortran_la_LIBADD = am__objects_3 = runtime/bounds.lo runtime/compile_options.lo \ runtime/memory.lo runtime/string.lo runtime/select.lo \ $(am__objects_1) $(am__objects_2) -am__objects_4 = generated/all_l1.lo generated/all_l2.lo \ - generated/all_l4.lo generated/all_l8.lo generated/all_l16.lo -am__objects_5 = generated/any_l1.lo generated/any_l2.lo \ - generated/any_l4.lo generated/any_l8.lo generated/any_l16.lo -am__objects_6 = generated/count_1_l.lo generated/count_2_l.lo \ +am__objects_4 = generated/matmul_i1.lo generated/matmul_i2.lo \ + generated/matmul_i4.lo generated/matmul_i8.lo \ + generated/matmul_i16.lo generated/matmul_r4.lo \ + generated/matmul_r8.lo generated/matmul_r10.lo \ + generated/matmul_r16.lo generated/matmul_r17.lo \ + generated/matmul_c4.lo generated/matmul_c8.lo \ + generated/matmul_c10.lo generated/matmul_c16.lo \ + generated/matmul_c17.lo +am__objects_5 = generated/matmul_l4.lo generated/matmul_l8.lo \ + generated/matmul_l16.lo +am__objects_6 = generated/matmulavx128_i1.lo \ + generated/matmulavx128_i2.lo generated/matmulavx128_i4.lo \ + generated/matmulavx128_i8.lo generated/matmulavx128_i16.lo \ + generated/matmulavx128_r4.lo generated/matmulavx128_r8.lo \ + generated/matmulavx128_r10.lo generated/matmulavx128_r16.lo \ + generated/matmulavx128_r17.lo generated/matmulavx128_c4.lo \ + generated/matmulavx128_c8.lo generated/matmulavx128_c10.lo \ + generated/matmulavx128_c16.lo generated/matmulavx128_c17.lo +am__objects_7 = generated/all_l1.lo generated/all_l2.lo \ + generated/all_l4.lo generated/all_l8.lo generated/all_l16.lo \ + generated/any_l1.lo generated/any_l2.lo generated/any_l4.lo \ + generated/any_l8.lo generated/any_l16.lo \ + generated/count_1_l.lo generated/count_2_l.lo \ generated/count_4_l.lo generated/count_8_l.lo \ - generated/count_16_l.lo -am__objects_7 = generated/maxloc0_4_i1.lo generated/maxloc0_8_i1.lo \ - generated/maxloc0_16_i1.lo generated/maxloc0_4_i2.lo \ - generated/maxloc0_8_i2.lo generated/maxloc0_16_i2.lo \ - generated/maxloc0_4_i4.lo generated/maxloc0_8_i4.lo \ - generated/maxloc0_16_i4.lo generated/maxloc0_4_i8.lo \ - generated/maxloc0_8_i8.lo generated/maxloc0_16_i8.lo \ - generated/maxloc0_4_i16.lo generated/maxloc0_8_i16.lo \ - generated/maxloc0_16_i16.lo generated/maxloc0_4_m1.lo \ - generated/maxloc0_8_m1.lo generated/maxloc0_16_m1.lo \ - generated/maxloc0_4_m2.lo generated/maxloc0_8_m2.lo \ - generated/maxloc0_16_m2.lo generated/maxloc0_4_m4.lo \ - generated/maxloc0_8_m4.lo generated/maxloc0_16_m4.lo \ - generated/maxloc0_4_m8.lo generated/maxloc0_8_m8.lo \ - generated/maxloc0_16_m8.lo generated/maxloc0_4_m16.lo \ - generated/maxloc0_8_m16.lo generated/maxloc0_16_m16.lo \ - generated/maxloc0_4_r4.lo generated/maxloc0_8_r4.lo \ - generated/maxloc0_16_r4.lo generated/maxloc0_4_r8.lo \ - generated/maxloc0_8_r8.lo generated/maxloc0_16_r8.lo \ - generated/maxloc0_4_r10.lo generated/maxloc0_8_r10.lo \ - generated/maxloc0_16_r10.lo generated/maxloc0_4_r16.lo \ - generated/maxloc0_8_r16.lo generated/maxloc0_16_r16.lo \ - generated/maxloc0_4_r17.lo generated/maxloc0_8_r17.lo \ - generated/maxloc0_16_r17.lo -am__objects_8 = generated/maxloc1_4_i1.lo generated/maxloc1_8_i1.lo \ + generated/count_16_l.lo generated/maxloc0_4_i1.lo \ + generated/maxloc0_8_i1.lo generated/maxloc0_16_i1.lo \ + generated/maxloc0_4_i2.lo generated/maxloc0_8_i2.lo \ + generated/maxloc0_16_i2.lo generated/maxloc0_4_i4.lo \ + generated/maxloc0_8_i4.lo generated/maxloc0_16_i4.lo \ + generated/maxloc0_4_i8.lo generated/maxloc0_8_i8.lo \ + generated/maxloc0_16_i8.lo generated/maxloc0_4_i16.lo \ + generated/maxloc0_8_i16.lo generated/maxloc0_16_i16.lo \ + generated/maxloc0_4_m1.lo generated/maxloc0_8_m1.lo \ + generated/maxloc0_16_m1.lo generated/maxloc0_4_m2.lo \ + generated/maxloc0_8_m2.lo generated/maxloc0_16_m2.lo \ + generated/maxloc0_4_m4.lo generated/maxloc0_8_m4.lo \ + generated/maxloc0_16_m4.lo generated/maxloc0_4_m8.lo \ + generated/maxloc0_8_m8.lo generated/maxloc0_16_m8.lo \ + generated/maxloc0_4_m16.lo generated/maxloc0_8_m16.lo \ + generated/maxloc0_16_m16.lo generated/maxloc0_4_r4.lo \ + generated/maxloc0_8_r4.lo generated/maxloc0_16_r4.lo \ + generated/maxloc0_4_r8.lo generated/maxloc0_8_r8.lo \ + generated/maxloc0_16_r8.lo generated/maxloc0_4_r10.lo \ + generated/maxloc0_8_r10.lo generated/maxloc0_16_r10.lo \ + generated/maxloc0_4_r16.lo generated/maxloc0_8_r16.lo \ + generated/maxloc0_16_r16.lo generated/maxloc0_4_r17.lo \ + generated/maxloc0_8_r17.lo generated/maxloc0_16_r17.lo \ + generated/maxloc1_4_i1.lo generated/maxloc1_8_i1.lo \ generated/maxloc1_16_i1.lo generated/maxloc1_4_i2.lo \ generated/maxloc1_8_i2.lo generated/maxloc1_16_i2.lo \ generated/maxloc1_4_i4.lo generated/maxloc1_8_i4.lo \ - generated/maxloc1_16_i4.lo generated/maxloc1_4_m1.lo \ + generated/maxloc1_16_i4.lo generated/maxloc1_4_i8.lo \ + generated/maxloc1_8_i8.lo generated/maxloc1_16_i8.lo \ + generated/maxloc1_4_i16.lo generated/maxloc1_8_i16.lo \ + generated/maxloc1_16_i16.lo generated/maxloc1_4_m1.lo \ generated/maxloc1_8_m1.lo generated/maxloc1_16_m1.lo \ generated/maxloc1_4_m2.lo generated/maxloc1_8_m2.lo \ generated/maxloc1_16_m2.lo generated/maxloc1_4_m4.lo \ generated/maxloc1_8_m4.lo generated/maxloc1_16_m4.lo \ generated/maxloc1_4_m8.lo generated/maxloc1_8_m8.lo \ generated/maxloc1_16_m8.lo generated/maxloc1_4_m16.lo \ - generated/maxloc1_8_m16.lo generated/maxloc1_16_i16.lo \ + generated/maxloc1_8_m16.lo generated/maxloc1_16_m16.lo \ generated/maxloc1_4_r4.lo generated/maxloc1_8_r4.lo \ generated/maxloc1_16_r4.lo generated/maxloc1_4_r8.lo \ generated/maxloc1_8_r8.lo generated/maxloc1_16_r8.lo \ @@ -280,16 +300,15 @@ am__objects_8 = generated/maxloc1_4_i1.lo generated/maxloc1_8_i1.lo \ generated/maxloc1_16_r10.lo generated/maxloc1_4_r16.lo \ generated/maxloc1_8_r16.lo generated/maxloc1_16_r16.lo \ generated/maxloc1_4_r17.lo generated/maxloc1_8_r17.lo \ - generated/maxloc1_16_r17.lo -am__objects_9 = generated/maxval_i1.lo generated/maxval_i2.lo \ - generated/maxval_i4.lo generated/maxval_i8.lo \ - generated/maxval_i16.lo generated/maxval_m1.lo \ - generated/maxval_m2.lo generated/maxval_m4.lo \ - generated/maxval_m8.lo generated/maxval_m16.lo \ - generated/maxval_r4.lo generated/maxval_r8.lo \ - generated/maxval_r10.lo generated/maxval_r16.lo \ - generated/maxval_r17.lo -am__objects_10 = generated/minloc0_4_i1.lo generated/minloc0_8_i1.lo \ + generated/maxloc1_16_r17.lo generated/maxval_i1.lo \ + generated/maxval_i2.lo generated/maxval_i4.lo \ + generated/maxval_i8.lo generated/maxval_i16.lo \ + generated/maxval_m1.lo generated/maxval_m2.lo \ + generated/maxval_m4.lo generated/maxval_m8.lo \ + generated/maxval_m16.lo generated/maxval_r4.lo \ + generated/maxval_r8.lo generated/maxval_r10.lo \ + generated/maxval_r16.lo generated/maxval_r17.lo \ + generated/minloc0_4_i1.lo generated/minloc0_8_i1.lo \ generated/minloc0_16_i1.lo generated/minloc0_4_i2.lo \ generated/minloc0_8_i2.lo generated/minloc0_16_i2.lo \ generated/minloc0_4_i4.lo generated/minloc0_8_i4.lo \ @@ -311,171 +330,140 @@ am__objects_10 = generated/minloc0_4_i1.lo generated/minloc0_8_i1.lo \ generated/minloc0_16_r10.lo generated/minloc0_4_r16.lo \ generated/minloc0_8_r16.lo generated/minloc0_16_r16.lo \ generated/minloc0_4_r17.lo generated/minloc0_8_r17.lo \ - generated/minloc0_16_r17.lo -am__objects_11 = generated/minloc1_4_i1.lo generated/minloc1_8_i1.lo \ - generated/minloc1_16_i1.lo generated/minloc1_4_i2.lo \ - generated/minloc1_8_i2.lo generated/minloc1_16_i2.lo \ - generated/minloc1_4_i4.lo generated/minloc1_8_i4.lo \ - generated/minloc1_16_i4.lo generated/minloc1_4_i8.lo \ - generated/minloc1_8_i8.lo generated/minloc1_16_i8.lo \ - generated/minloc1_4_i16.lo generated/minloc1_8_i16.lo \ - generated/minloc1_16_i16.lo generated/minloc1_4_m1.lo \ - generated/minloc1_8_m1.lo generated/minloc1_16_m1.lo \ - generated/minloc1_4_m2.lo generated/minloc1_8_m2.lo \ - generated/minloc1_16_m2.lo generated/minloc1_4_m4.lo \ - generated/minloc1_8_m4.lo generated/minloc1_16_m4.lo \ - generated/minloc1_4_m8.lo generated/minloc1_8_m8.lo \ - generated/minloc1_16_m8.lo generated/minloc1_4_m16.lo \ - generated/minloc1_8_m16.lo generated/minloc1_16_m16.lo \ - generated/minloc1_4_r4.lo generated/minloc1_8_r4.lo \ - generated/minloc1_16_r4.lo generated/minloc1_4_r8.lo \ - generated/minloc1_8_r8.lo generated/minloc1_16_r8.lo \ - generated/minloc1_4_r10.lo generated/minloc1_8_r10.lo \ - generated/minloc1_16_r10.lo generated/minloc1_4_r16.lo \ - generated/minloc1_8_r16.lo generated/minloc1_16_r16.lo \ - generated/minloc1_4_r17.lo generated/minloc1_8_r17.lo \ - generated/minloc1_16_r17.lo -am__objects_12 = generated/minval_i1.lo generated/minval_i2.lo \ + generated/minloc0_16_r17.lo generated/minloc1_4_i1.lo \ + generated/minloc1_8_i1.lo generated/minloc1_16_i1.lo \ + generated/minloc1_4_i2.lo generated/minloc1_8_i2.lo \ + generated/minloc1_16_i2.lo generated/minloc1_4_i4.lo \ + generated/minloc1_8_i4.lo generated/minloc1_16_i4.lo \ + generated/minloc1_4_i8.lo generated/minloc1_8_i8.lo \ + generated/minloc1_16_i8.lo generated/minloc1_4_i16.lo \ + generated/minloc1_8_i16.lo generated/minloc1_16_i16.lo \ + generated/minloc1_4_m1.lo generated/minloc1_8_m1.lo \ + generated/minloc1_16_m1.lo generated/minloc1_4_m2.lo \ + generated/minloc1_8_m2.lo generated/minloc1_16_m2.lo \ + generated/minloc1_4_m4.lo generated/minloc1_8_m4.lo \ + generated/minloc1_16_m4.lo generated/minloc1_4_m8.lo \ + generated/minloc1_8_m8.lo generated/minloc1_16_m8.lo \ + generated/minloc1_4_m16.lo generated/minloc1_8_m16.lo \ + generated/minloc1_16_m16.lo generated/minloc1_4_r4.lo \ + generated/minloc1_8_r4.lo generated/minloc1_16_r4.lo \ + generated/minloc1_4_r8.lo generated/minloc1_8_r8.lo \ + generated/minloc1_16_r8.lo generated/minloc1_4_r10.lo \ + generated/minloc1_8_r10.lo generated/minloc1_16_r10.lo \ + generated/minloc1_4_r16.lo generated/minloc1_8_r16.lo \ + generated/minloc1_16_r16.lo generated/minloc1_4_r17.lo \ + generated/minloc1_8_r17.lo generated/minloc1_16_r17.lo \ + generated/minval_i1.lo generated/minval_i2.lo \ generated/minval_i4.lo generated/minval_i8.lo \ generated/minval_i16.lo generated/minval_m1.lo \ generated/minval_m2.lo generated/minval_m4.lo \ generated/minval_m8.lo generated/minval_m16.lo \ generated/minval_r4.lo generated/minval_r8.lo \ generated/minval_r10.lo generated/minval_r16.lo \ - generated/minval_r17.lo -am__objects_13 = generated/product_i1.lo generated/product_i2.lo \ - generated/product_i4.lo generated/product_i8.lo \ - generated/product_i16.lo generated/product_r4.lo \ - generated/product_r8.lo generated/product_r10.lo \ - generated/product_r16.lo generated/product_r17.lo \ - generated/product_c4.lo generated/product_c8.lo \ - generated/product_c10.lo generated/product_c16.lo \ - generated/product_c17.lo -am__objects_14 = generated/sum_i1.lo generated/sum_i2.lo \ - generated/sum_i4.lo generated/sum_i8.lo generated/sum_i16.lo \ - generated/sum_r4.lo generated/sum_r8.lo generated/sum_r10.lo \ - generated/sum_r16.lo generated/sum_r17.lo generated/sum_c4.lo \ - generated/sum_c8.lo generated/sum_c10.lo generated/sum_c16.lo \ - generated/sum_c17.lo -am__objects_15 = generated/bessel_r4.lo generated/bessel_r8.lo \ + generated/minval_r17.lo generated/product_i1.lo \ + generated/product_i2.lo generated/product_i4.lo \ + generated/product_i8.lo generated/product_i16.lo \ + generated/product_r4.lo generated/product_r8.lo \ + generated/product_r10.lo generated/product_r16.lo \ + generated/product_r17.lo generated/product_c4.lo \ + generated/product_c8.lo generated/product_c10.lo \ + generated/product_c16.lo generated/product_c17.lo \ + generated/sum_i1.lo generated/sum_i2.lo generated/sum_i4.lo \ + generated/sum_i8.lo generated/sum_i16.lo generated/sum_r4.lo \ + generated/sum_r8.lo generated/sum_r10.lo generated/sum_r16.lo \ + generated/sum_r17.lo generated/sum_c4.lo generated/sum_c8.lo \ + generated/sum_c10.lo generated/sum_c16.lo generated/sum_c17.lo \ + generated/bessel_r4.lo generated/bessel_r8.lo \ generated/bessel_r10.lo generated/bessel_r16.lo \ - generated/bessel_r17.lo -am__objects_16 = generated/iall_i1.lo generated/iall_i2.lo \ - generated/iall_i4.lo generated/iall_i8.lo \ - generated/iall_i16.lo -am__objects_17 = generated/iany_i1.lo generated/iany_i2.lo \ - generated/iany_i4.lo generated/iany_i8.lo \ - generated/iany_i16.lo -am__objects_18 = generated/iparity_i1.lo generated/iparity_i2.lo \ - generated/iparity_i4.lo generated/iparity_i8.lo \ - generated/iparity_i16.lo -am__objects_19 = generated/norm2_r4.lo generated/norm2_r8.lo \ + generated/bessel_r17.lo generated/iall_i1.lo \ + generated/iall_i2.lo generated/iall_i4.lo generated/iall_i8.lo \ + generated/iall_i16.lo generated/iany_i1.lo \ + generated/iany_i2.lo generated/iany_i4.lo generated/iany_i8.lo \ + generated/iany_i16.lo generated/iparity_i1.lo \ + generated/iparity_i2.lo generated/iparity_i4.lo \ + generated/iparity_i8.lo generated/iparity_i16.lo \ + generated/norm2_r4.lo generated/norm2_r8.lo \ generated/norm2_r10.lo generated/norm2_r16.lo \ - generated/norm2_r17.lo -am__objects_20 = generated/parity_l1.lo generated/parity_l2.lo \ - generated/parity_l4.lo generated/parity_l8.lo \ - generated/parity_l16.lo -am__objects_21 = generated/matmul_i1.lo generated/matmul_i2.lo \ - generated/matmul_i4.lo generated/matmul_i8.lo \ - generated/matmul_i16.lo generated/matmul_r4.lo \ - generated/matmul_r8.lo generated/matmul_r10.lo \ - generated/matmul_r16.lo generated/matmul_r17.lo \ - generated/matmul_c4.lo generated/matmul_c8.lo \ - generated/matmul_c10.lo generated/matmul_c16.lo \ - generated/matmul_c17.lo -am__objects_22 = generated/matmul_l4.lo generated/matmul_l8.lo \ - generated/matmul_l16.lo -am__objects_23 = generated/shape_i1.lo generated/shape_i2.lo \ + generated/norm2_r17.lo generated/parity_l1.lo \ + generated/parity_l2.lo generated/parity_l4.lo \ + generated/parity_l8.lo generated/parity_l16.lo \ + generated/shape_i1.lo generated/shape_i2.lo \ generated/shape_i4.lo generated/shape_i8.lo \ - generated/shape_i16.lo -am__objects_24 = generated/eoshift1_4.lo generated/eoshift1_8.lo \ - generated/eoshift1_16.lo -am__objects_25 = generated/eoshift3_4.lo generated/eoshift3_8.lo \ - generated/eoshift3_16.lo -am__objects_26 = generated/cshift1_4.lo generated/cshift1_8.lo \ - generated/cshift1_16.lo -am__objects_27 = generated/reshape_i4.lo generated/reshape_i8.lo \ + generated/shape_i16.lo generated/eoshift1_4.lo \ + generated/eoshift1_8.lo generated/eoshift1_16.lo \ + generated/eoshift3_4.lo generated/eoshift3_8.lo \ + generated/eoshift3_16.lo generated/cshift1_4.lo \ + generated/cshift1_8.lo generated/cshift1_16.lo \ + generated/reshape_i4.lo generated/reshape_i8.lo \ generated/reshape_i16.lo generated/reshape_r4.lo \ generated/reshape_r8.lo generated/reshape_r10.lo \ generated/reshape_r16.lo generated/reshape_r17.lo \ generated/reshape_c4.lo generated/reshape_c8.lo \ generated/reshape_c10.lo generated/reshape_c16.lo \ - generated/reshape_c17.lo -am__objects_28 = generated/in_pack_i1.lo generated/in_pack_i2.lo \ - generated/in_pack_i4.lo generated/in_pack_i8.lo \ - generated/in_pack_i16.lo generated/in_pack_r4.lo \ - generated/in_pack_r8.lo generated/in_pack_r10.lo \ - generated/in_pack_r16.lo generated/in_pack_r17.lo \ - generated/in_pack_c4.lo generated/in_pack_c8.lo \ - generated/in_pack_c10.lo generated/in_pack_c16.lo \ - generated/in_pack_c17.lo -am__objects_29 = generated/in_unpack_i1.lo generated/in_unpack_i2.lo \ + generated/reshape_c17.lo generated/in_pack_i1.lo \ + generated/in_pack_i2.lo generated/in_pack_i4.lo \ + generated/in_pack_i8.lo generated/in_pack_i16.lo \ + generated/in_pack_r4.lo generated/in_pack_r8.lo \ + generated/in_pack_r10.lo generated/in_pack_r16.lo \ + generated/in_pack_r17.lo generated/in_pack_c4.lo \ + generated/in_pack_c8.lo generated/in_pack_c10.lo \ + generated/in_pack_c16.lo generated/in_pack_c17.lo \ + generated/in_unpack_i1.lo generated/in_unpack_i2.lo \ generated/in_unpack_i4.lo generated/in_unpack_i8.lo \ generated/in_unpack_i16.lo generated/in_unpack_r4.lo \ generated/in_unpack_r8.lo generated/in_unpack_r10.lo \ generated/in_unpack_r16.lo generated/in_unpack_r17.lo \ generated/in_unpack_c4.lo generated/in_unpack_c8.lo \ generated/in_unpack_c10.lo generated/in_unpack_c16.lo \ - generated/in_unpack_c17.lo -am__objects_30 = generated/pow_i4_i4.lo generated/pow_i8_i4.lo \ - generated/pow_i16_i4.lo generated/pow_r16_i4.lo \ - generated/pow_r17_i4.lo generated/pow_c4_i4.lo \ - generated/pow_c8_i4.lo generated/pow_c10_i4.lo \ - generated/pow_c16_i4.lo generated/pow_c17_i4.lo \ - generated/pow_i4_i8.lo generated/pow_i8_i8.lo \ - generated/pow_i16_i8.lo generated/pow_r4_i8.lo \ - generated/pow_r8_i8.lo generated/pow_r10_i8.lo \ - generated/pow_r16_i8.lo generated/pow_r17_i8.lo \ - generated/pow_c4_i8.lo generated/pow_c8_i8.lo \ - generated/pow_c10_i8.lo generated/pow_c16_i8.lo \ - generated/pow_c17_i8.lo generated/pow_i4_i16.lo \ - generated/pow_i8_i16.lo generated/pow_i16_i16.lo \ - generated/pow_r4_i16.lo generated/pow_r8_i16.lo \ - generated/pow_r10_i16.lo generated/pow_r16_i16.lo \ - generated/pow_r17_i16.lo generated/pow_c4_i16.lo \ - generated/pow_c8_i16.lo generated/pow_c10_i16.lo \ - generated/pow_c16_i16.lo generated/pow_c17_i16.lo -am__objects_31 = generated/pack_i1.lo generated/pack_i2.lo \ - generated/pack_i4.lo generated/pack_i8.lo \ + generated/in_unpack_c17.lo generated/pow_i4_i4.lo \ + generated/pow_i8_i4.lo generated/pow_i16_i4.lo \ + generated/pow_r16_i4.lo generated/pow_r17_i4.lo \ + generated/pow_c4_i4.lo generated/pow_c8_i4.lo \ + generated/pow_c10_i4.lo generated/pow_c16_i4.lo \ + generated/pow_c17_i4.lo generated/pow_i4_i8.lo \ + generated/pow_i8_i8.lo generated/pow_i16_i8.lo \ + generated/pow_r4_i8.lo generated/pow_r8_i8.lo \ + generated/pow_r10_i8.lo generated/pow_r16_i8.lo \ + generated/pow_r17_i8.lo generated/pow_c4_i8.lo \ + generated/pow_c8_i8.lo generated/pow_c10_i8.lo \ + generated/pow_c16_i8.lo generated/pow_c17_i8.lo \ + generated/pow_i4_i16.lo generated/pow_i8_i16.lo \ + generated/pow_i16_i16.lo generated/pow_r4_i16.lo \ + generated/pow_r8_i16.lo generated/pow_r10_i16.lo \ + generated/pow_r16_i16.lo generated/pow_r17_i16.lo \ + generated/pow_c4_i16.lo generated/pow_c8_i16.lo \ + generated/pow_c10_i16.lo generated/pow_c16_i16.lo \ + generated/pow_c17_i16.lo generated/pack_i1.lo \ + generated/pack_i2.lo generated/pack_i4.lo generated/pack_i8.lo \ generated/pack_i16.lo generated/pack_r4.lo \ generated/pack_r8.lo generated/pack_r10.lo \ generated/pack_r16.lo generated/pack_r17.lo \ generated/pack_c4.lo generated/pack_c8.lo \ generated/pack_c10.lo generated/pack_c16.lo \ - generated/pack_c17.lo -am__objects_32 = generated/unpack_i1.lo generated/unpack_i2.lo \ - generated/unpack_i4.lo generated/unpack_i8.lo \ - generated/unpack_i16.lo generated/unpack_r4.lo \ - generated/unpack_r8.lo generated/unpack_r10.lo \ - generated/unpack_r16.lo generated/unpack_r17.lo \ - generated/unpack_c4.lo generated/unpack_c8.lo \ - generated/unpack_c10.lo generated/unpack_c16.lo \ - generated/unpack_c17.lo -am__objects_33 = generated/matmulavx128_i1.lo \ - generated/matmulavx128_i2.lo generated/matmulavx128_i4.lo \ - generated/matmulavx128_i8.lo generated/matmulavx128_i16.lo \ - generated/matmulavx128_r4.lo generated/matmulavx128_r8.lo \ - generated/matmulavx128_r10.lo generated/matmulavx128_r16.lo \ - generated/matmulavx128_r17.lo generated/matmulavx128_c4.lo \ - generated/matmulavx128_c8.lo generated/matmulavx128_c10.lo \ - generated/matmulavx128_c16.lo generated/matmulavx128_c17.lo -am__objects_34 = generated/spread_i1.lo generated/spread_i2.lo \ + generated/pack_c17.lo generated/unpack_i1.lo \ + generated/unpack_i2.lo generated/unpack_i4.lo \ + generated/unpack_i8.lo generated/unpack_i16.lo \ + generated/unpack_r4.lo generated/unpack_r8.lo \ + generated/unpack_r10.lo generated/unpack_r16.lo \ + generated/unpack_r17.lo generated/unpack_c4.lo \ + generated/unpack_c8.lo generated/unpack_c10.lo \ + generated/unpack_c16.lo generated/unpack_c17.lo \ + generated/spread_i1.lo generated/spread_i2.lo \ generated/spread_i4.lo generated/spread_i8.lo \ generated/spread_i16.lo generated/spread_r4.lo \ generated/spread_r8.lo generated/spread_r10.lo \ generated/spread_r16.lo generated/spread_r17.lo \ generated/spread_c4.lo generated/spread_c8.lo \ generated/spread_c10.lo generated/spread_c16.lo \ - generated/spread_c17.lo -am__objects_35 = generated/cshift0_i1.lo generated/cshift0_i2.lo \ - generated/cshift0_i4.lo generated/cshift0_i8.lo \ - generated/cshift0_i16.lo generated/cshift0_r4.lo \ - generated/cshift0_r8.lo generated/cshift0_r10.lo \ - generated/cshift0_r16.lo generated/cshift0_r17.lo \ - generated/cshift0_c4.lo generated/cshift0_c8.lo \ - generated/cshift0_c10.lo generated/cshift0_c16.lo \ - generated/cshift0_c17.lo -am__objects_36 = generated/cshift1_4_i1.lo generated/cshift1_4_i2.lo \ + generated/spread_c17.lo generated/cshift0_i1.lo \ + generated/cshift0_i2.lo generated/cshift0_i4.lo \ + generated/cshift0_i8.lo generated/cshift0_i16.lo \ + generated/cshift0_r4.lo generated/cshift0_r8.lo \ + generated/cshift0_r10.lo generated/cshift0_r16.lo \ + generated/cshift0_r17.lo generated/cshift0_c4.lo \ + generated/cshift0_c8.lo generated/cshift0_c10.lo \ + generated/cshift0_c16.lo generated/cshift0_c17.lo \ + generated/cshift1_4_i1.lo generated/cshift1_4_i2.lo \ generated/cshift1_4_i4.lo generated/cshift1_4_i8.lo \ generated/cshift1_4_i16.lo generated/cshift1_4_r4.lo \ generated/cshift1_4_r8.lo generated/cshift1_4_r10.lo \ @@ -497,88 +485,70 @@ am__objects_36 = generated/cshift1_4_i1.lo generated/cshift1_4_i2.lo \ generated/cshift1_16_r16.lo generated/cshift1_16_r17.lo \ generated/cshift1_16_c4.lo generated/cshift1_16_c8.lo \ generated/cshift1_16_c10.lo generated/cshift1_16_c16.lo \ - generated/cshift1_16_c17.lo -am__objects_37 = generated/maxloc0_4_s1.lo generated/maxloc0_4_s4.lo \ - generated/maxloc0_8_s1.lo generated/maxloc0_8_s4.lo \ - generated/maxloc0_16_s1.lo generated/maxloc0_16_s4.lo -am__objects_38 = generated/minloc0_4_s1.lo generated/minloc0_4_s4.lo \ - generated/minloc0_8_s1.lo generated/minloc0_8_s4.lo \ - generated/minloc0_16_s1.lo generated/minloc0_16_s4.lo -am__objects_39 = generated/maxloc1_4_s1.lo generated/maxloc1_4_s4.lo \ - generated/maxloc1_8_s1.lo generated/maxloc1_8_s4.lo \ - generated/maxloc1_16_s1.lo generated/maxloc1_16_s4.lo -am__objects_40 = generated/minloc1_4_s1.lo generated/minloc1_4_s4.lo \ - generated/minloc1_8_s1.lo generated/minloc1_8_s4.lo \ - generated/minloc1_16_s1.lo generated/minloc1_16_s4.lo -am__objects_41 = generated/maxloc2_4_s1.lo generated/maxloc2_4_s4.lo \ - generated/maxloc2_8_s1.lo generated/maxloc2_8_s4.lo \ - generated/maxloc2_16_s1.lo generated/maxloc2_16_s4.lo -am__objects_42 = generated/minloc2_4_s1.lo generated/minloc2_4_s4.lo \ - generated/minloc2_8_s1.lo generated/minloc2_8_s4.lo \ - generated/minloc2_16_s1.lo generated/minloc2_16_s4.lo -am__objects_43 = generated/maxval0_s1.lo generated/maxval0_s4.lo -am__objects_44 = generated/minval0_s1.lo generated/minval0_s4.lo -am__objects_45 = generated/maxval1_s1.lo generated/maxval1_s4.lo -am__objects_46 = generated/minval1_s1.lo generated/minval1_s4.lo -am__objects_47 = generated/findloc0_i1.lo generated/findloc0_i2.lo \ - generated/findloc0_i4.lo generated/findloc0_i8.lo \ - generated/findloc0_i16.lo generated/findloc0_r4.lo \ - generated/findloc0_r8.lo generated/findloc0_r10.lo \ - generated/findloc0_r16.lo generated/findloc0_r17.lo \ - generated/findloc0_c4.lo generated/findloc0_c8.lo \ - generated/findloc0_c10.lo generated/findloc0_c16.lo \ - generated/findloc0_c17.lo -am__objects_48 = generated/findloc0_s1.lo generated/findloc0_s4.lo -am__objects_49 = generated/findloc1_i1.lo generated/findloc1_i2.lo \ + generated/cshift1_16_c17.lo generated/findloc0_i1.lo \ + generated/findloc0_i2.lo generated/findloc0_i4.lo \ + generated/findloc0_i8.lo generated/findloc0_i16.lo \ + generated/findloc0_r4.lo generated/findloc0_r8.lo \ + generated/findloc0_r10.lo generated/findloc0_r16.lo \ + generated/findloc0_r17.lo generated/findloc0_c4.lo \ + generated/findloc0_c8.lo generated/findloc0_c10.lo \ + generated/findloc0_c16.lo generated/findloc0_c17.lo \ + generated/findloc0_s1.lo generated/findloc0_s4.lo \ + generated/findloc1_i1.lo generated/findloc1_i2.lo \ generated/findloc1_i4.lo generated/findloc1_i8.lo \ generated/findloc1_i16.lo generated/findloc1_r4.lo \ generated/findloc1_r8.lo generated/findloc1_r10.lo \ generated/findloc1_r16.lo generated/findloc1_r17.lo \ generated/findloc1_c4.lo generated/findloc1_c8.lo \ generated/findloc1_c10.lo generated/findloc1_c16.lo \ - generated/findloc1_c17.lo -am__objects_50 = generated/findloc1_s1.lo generated/findloc1_s4.lo -am__objects_51 = generated/findloc2_s1.lo generated/findloc2_s4.lo -am__objects_52 = runtime/ISO_Fortran_binding.lo -am__objects_53 = generated/pow_m1_m1.lo generated/pow_m1_m2.lo \ - generated/pow_m1_m4.lo generated/pow_m1_m8.lo \ - generated/pow_m1_m16.lo generated/pow_m2_m1.lo \ - generated/pow_m2_m2.lo generated/pow_m2_m4.lo \ - generated/pow_m2_m8.lo generated/pow_m2_m16.lo \ - generated/pow_m4_m1.lo generated/pow_m4_m2.lo \ - generated/pow_m4_m4.lo generated/pow_m4_m8.lo \ - generated/pow_m4_m16.lo generated/pow_m8_m1.lo \ - generated/pow_m8_m2.lo generated/pow_m8_m4.lo \ - generated/pow_m8_m8.lo generated/pow_m8_m16.lo \ - generated/pow_m16_m1.lo generated/pow_m16_m2.lo \ - generated/pow_m16_m4.lo generated/pow_m16_m8.lo \ - generated/pow_m16_m16.lo -am__objects_54 = $(am__objects_4) $(am__objects_5) $(am__objects_6) \ - $(am__objects_7) $(am__objects_8) $(am__objects_9) \ - $(am__objects_10) $(am__objects_11) $(am__objects_12) \ - $(am__objects_13) $(am__objects_14) $(am__objects_15) \ - $(am__objects_16) $(am__objects_17) $(am__objects_18) \ - $(am__objects_19) $(am__objects_20) $(am__objects_21) \ - $(am__objects_22) $(am__objects_23) $(am__objects_24) \ - $(am__objects_25) $(am__objects_26) $(am__objects_27) \ - $(am__objects_28) $(am__objects_29) $(am__objects_30) \ - $(am__objects_31) $(am__objects_32) $(am__objects_33) \ - $(am__objects_34) $(am__objects_35) $(am__objects_36) \ - $(am__objects_37) $(am__objects_38) $(am__objects_39) \ - $(am__objects_40) $(am__objects_41) $(am__objects_42) \ - $(am__objects_43) $(am__objects_44) $(am__objects_45) \ - $(am__objects_46) $(am__objects_47) $(am__objects_48) \ - $(am__objects_49) $(am__objects_50) $(am__objects_51) \ - $(am__objects_52) $(am__objects_53) -@LIBGFOR_MINIMAL_FALSE@am__objects_55 = io/close.lo io/file_pos.lo \ + generated/findloc1_c17.lo generated/findloc1_s1.lo \ + generated/findloc1_s4.lo generated/findloc2_s1.lo \ + generated/findloc2_s4.lo generated/maxloc0_4_s1.lo \ + generated/maxloc0_4_s4.lo generated/maxloc0_8_s1.lo \ + generated/maxloc0_8_s4.lo generated/maxloc0_16_s1.lo \ + generated/maxloc0_16_s4.lo generated/maxloc1_4_s1.lo \ + generated/maxloc1_4_s4.lo generated/maxloc1_8_s1.lo \ + generated/maxloc1_8_s4.lo generated/maxloc1_16_s1.lo \ + generated/maxloc1_16_s4.lo generated/maxloc2_4_s1.lo \ + generated/maxloc2_4_s4.lo generated/maxloc2_8_s1.lo \ + generated/maxloc2_8_s4.lo generated/maxloc2_16_s1.lo \ + generated/maxloc2_16_s4.lo generated/maxval0_s1.lo \ + generated/maxval0_s4.lo generated/maxval1_s1.lo \ + generated/maxval1_s4.lo generated/minloc0_4_s1.lo \ + generated/minloc0_4_s4.lo generated/minloc0_8_s1.lo \ + generated/minloc0_8_s4.lo generated/minloc0_16_s1.lo \ + generated/minloc0_16_s4.lo generated/minloc1_4_s1.lo \ + generated/minloc1_4_s4.lo generated/minloc1_8_s1.lo \ + generated/minloc1_8_s4.lo generated/minloc1_16_s1.lo \ + generated/minloc1_16_s4.lo generated/minloc2_4_s1.lo \ + generated/minloc2_4_s4.lo generated/minloc2_8_s1.lo \ + generated/minloc2_8_s4.lo generated/minloc2_16_s1.lo \ + generated/minloc2_16_s4.lo generated/minval0_s1.lo \ + generated/minval0_s4.lo generated/minval1_s1.lo \ + generated/minval1_s4.lo generated/pow_m1_m1.lo \ + generated/pow_m1_m2.lo generated/pow_m1_m4.lo \ + generated/pow_m1_m8.lo generated/pow_m1_m16.lo \ + generated/pow_m2_m1.lo generated/pow_m2_m2.lo \ + generated/pow_m2_m4.lo generated/pow_m2_m8.lo \ + generated/pow_m2_m16.lo generated/pow_m4_m1.lo \ + generated/pow_m4_m2.lo generated/pow_m4_m4.lo \ + generated/pow_m4_m8.lo generated/pow_m4_m16.lo \ + generated/pow_m8_m1.lo generated/pow_m8_m2.lo \ + generated/pow_m8_m4.lo generated/pow_m8_m8.lo \ + generated/pow_m8_m16.lo generated/pow_m16_m1.lo \ + generated/pow_m16_m2.lo generated/pow_m16_m4.lo \ + generated/pow_m16_m8.lo generated/pow_m16_m16.lo \ + $(am__objects_4) $(am__objects_5) $(am__objects_6) \ + runtime/ISO_Fortran_binding.lo +@LIBGFOR_MINIMAL_FALSE@am__objects_8 = io/close.lo io/file_pos.lo \ @LIBGFOR_MINIMAL_FALSE@ io/format.lo io/inquire.lo \ @LIBGFOR_MINIMAL_FALSE@ io/intrinsics.lo io/list_read.lo \ @LIBGFOR_MINIMAL_FALSE@ io/lock.lo io/open.lo io/read.lo \ @LIBGFOR_MINIMAL_FALSE@ io/transfer.lo io/transfer128.lo \ @LIBGFOR_MINIMAL_FALSE@ io/unit.lo io/unix.lo io/write.lo \ @LIBGFOR_MINIMAL_FALSE@ io/fbuf.lo io/async.lo -am__objects_56 = io/size_from_kind.lo $(am__objects_55) -@LIBGFOR_MINIMAL_FALSE@am__objects_57 = intrinsics/access.lo \ +am__objects_9 = io/size_from_kind.lo $(am__objects_8) +@LIBGFOR_MINIMAL_FALSE@am__objects_10 = intrinsics/access.lo \ @LIBGFOR_MINIMAL_FALSE@ intrinsics/c99_functions.lo \ @LIBGFOR_MINIMAL_FALSE@ intrinsics/chdir.lo intrinsics/chmod.lo \ @LIBGFOR_MINIMAL_FALSE@ intrinsics/clock.lo \ @@ -602,8 +572,8 @@ am__objects_56 = io/size_from_kind.lo $(am__objects_55) @LIBGFOR_MINIMAL_FALSE@ intrinsics/system_clock.lo \ @LIBGFOR_MINIMAL_FALSE@ intrinsics/time.lo intrinsics/umask.lo \ @LIBGFOR_MINIMAL_FALSE@ intrinsics/unlink.lo -@IEEE_SUPPORT_TRUE@am__objects_58 = ieee/ieee_helper.lo -am__objects_59 = intrinsics/associated.lo intrinsics/abort.lo \ +@IEEE_SUPPORT_TRUE@am__objects_11 = ieee/ieee_helper.lo +am__objects_12 = intrinsics/associated.lo intrinsics/abort.lo \ intrinsics/args.lo intrinsics/cshift0.lo \ intrinsics/eoshift0.lo intrinsics/eoshift2.lo \ intrinsics/erfc_scaled.lo intrinsics/extends_type_of.lo \ @@ -618,12 +588,12 @@ am__objects_59 = intrinsics/associated.lo intrinsics/abort.lo \ intrinsics/selected_real_kind.lo intrinsics/trigd.lo \ intrinsics/unpack_generic.lo runtime/in_pack_generic.lo \ runtime/in_unpack_generic.lo runtime/in_pack_class.lo \ - runtime/in_unpack_class.lo $(am__objects_57) $(am__objects_58) -@IEEE_SUPPORT_TRUE@am__objects_60 = ieee/ieee_arithmetic.lo \ + runtime/in_unpack_class.lo $(am__objects_10) $(am__objects_11) +@IEEE_SUPPORT_TRUE@am__objects_13 = ieee/ieee_arithmetic.lo \ @IEEE_SUPPORT_TRUE@ ieee/ieee_exceptions.lo \ @IEEE_SUPPORT_TRUE@ ieee/ieee_features.lo -am__objects_61 = -am__objects_62 = generated/_abs_c4.lo generated/_abs_c8.lo \ +am__objects_14 = +am__objects_15 = generated/_abs_c4.lo generated/_abs_c8.lo \ generated/_abs_c10.lo generated/_abs_c16.lo \ generated/_abs_c17.lo generated/_abs_i4.lo \ generated/_abs_i8.lo generated/_abs_i16.lo \ @@ -691,8 +661,8 @@ am__objects_62 = generated/_abs_c4.lo generated/_abs_c8.lo \ generated/_aint_r10.lo generated/_aint_r16.lo \ generated/_aint_r17.lo generated/_anint_r4.lo \ generated/_anint_r8.lo generated/_anint_r10.lo \ - generated/_anint_r16.lo generated/_anint_r17.lo -am__objects_63 = generated/_sign_i4.lo generated/_sign_i8.lo \ + generated/_anint_r16.lo generated/_anint_r17.lo \ + generated/_sign_i4.lo generated/_sign_i8.lo \ generated/_sign_i16.lo generated/_sign_r4.lo \ generated/_sign_r8.lo generated/_sign_r10.lo \ generated/_sign_r16.lo generated/_sign_r17.lo \ @@ -706,14 +676,12 @@ am__objects_63 = generated/_sign_i4.lo generated/_sign_i8.lo \ generated/_mod_i8.lo generated/_mod_i16.lo \ generated/_mod_r4.lo generated/_mod_r8.lo \ generated/_mod_r10.lo generated/_mod_r16.lo \ - generated/_mod_r17.lo -am__objects_64 = generated/misc_specifics.lo -am__objects_65 = $(am__objects_62) $(am__objects_63) $(am__objects_64) \ + generated/_mod_r17.lo generated/misc_specifics.lo \ intrinsics/dprod_r8.lo intrinsics/f2c_specifics.lo \ intrinsics/random_init.lo -am_libgfortran_la_OBJECTS = $(am__objects_3) $(am__objects_54) \ - $(am__objects_56) $(am__objects_59) $(am__objects_60) \ - $(am__objects_61) $(am__objects_65) +am_libgfortran_la_OBJECTS = $(am__objects_3) $(am__objects_7) \ + $(am__objects_9) $(am__objects_12) $(am__objects_13) \ + $(am__objects_14) $(am__objects_15) libgfortran_la_OBJECTS = $(am_libgfortran_la_OBJECTS) AM_V_P = $(am__v_P_@AM_V@) am__v_P_ = $(am__v_P_@AM_DEFAULT_V@) @@ -1045,102 +1013,61 @@ gfor_helper_src = intrinsics/associated.c intrinsics/abort.c \ gfor_src = runtime/bounds.c runtime/compile_options.c runtime/memory.c \ runtime/string.c runtime/select.c $(am__append_6) \ $(am__append_7) -i_all_c = \ +i_matmul_c = \ +generated/matmul_i1.c \ +generated/matmul_i2.c \ +generated/matmul_i4.c \ +generated/matmul_i8.c \ +generated/matmul_i16.c \ +generated/matmul_r4.c \ +generated/matmul_r8.c \ +generated/matmul_r10.c \ +generated/matmul_r16.c \ +generated/matmul_r17.c \ +generated/matmul_c4.c \ +generated/matmul_c8.c \ +generated/matmul_c10.c \ +generated/matmul_c16.c \ +generated/matmul_c17.c + +i_matmulavx128_c = \ +generated/matmulavx128_i1.c \ +generated/matmulavx128_i2.c \ +generated/matmulavx128_i4.c \ +generated/matmulavx128_i8.c \ +generated/matmulavx128_i16.c \ +generated/matmulavx128_r4.c \ +generated/matmulavx128_r8.c \ +generated/matmulavx128_r10.c \ +generated/matmulavx128_r16.c \ +generated/matmulavx128_r17.c \ +generated/matmulavx128_c4.c \ +generated/matmulavx128_c8.c \ +generated/matmulavx128_c10.c \ +generated/matmulavx128_c16.c \ +generated/matmulavx128_c17.c + +i_matmull_c = \ +generated/matmul_l4.c \ +generated/matmul_l8.c \ +generated/matmul_l16.c + +gfor_built_src = \ generated/all_l1.c \ generated/all_l2.c \ generated/all_l4.c \ generated/all_l8.c \ -generated/all_l16.c - -i_any_c = \ +generated/all_l16.c \ generated/any_l1.c \ generated/any_l2.c \ generated/any_l4.c \ generated/any_l8.c \ -generated/any_l16.c - -i_bessel_c = \ -generated/bessel_r4.c \ -generated/bessel_r8.c \ -generated/bessel_r10.c \ -generated/bessel_r16.c \ -generated/bessel_r17.c - -i_count_c = \ +generated/any_l16.c \ generated/count_1_l.c \ generated/count_2_l.c \ generated/count_4_l.c \ generated/count_8_l.c \ -generated/count_16_l.c - -i_iall_c = \ -generated/iall_i1.c \ -generated/iall_i2.c \ -generated/iall_i4.c \ -generated/iall_i8.c \ -generated/iall_i16.c - -i_iany_c = \ -generated/iany_i1.c \ -generated/iany_i2.c \ -generated/iany_i4.c \ -generated/iany_i8.c \ -generated/iany_i16.c - -i_iparity_c = \ -generated/iparity_i1.c \ -generated/iparity_i2.c \ -generated/iparity_i4.c \ -generated/iparity_i8.c \ -generated/iparity_i16.c - -i_findloc0_c = \ -generated/findloc0_i1.c \ -generated/findloc0_i2.c \ -generated/findloc0_i4.c \ -generated/findloc0_i8.c \ -generated/findloc0_i16.c \ -generated/findloc0_r4.c \ -generated/findloc0_r8.c \ -generated/findloc0_r10.c \ -generated/findloc0_r16.c \ -generated/findloc0_r17.c \ -generated/findloc0_c4.c \ -generated/findloc0_c8.c \ -generated/findloc0_c10.c \ -generated/findloc0_c16.c \ -generated/findloc0_c17.c - -i_findloc0s_c = \ -generated/findloc0_s1.c \ -generated/findloc0_s4.c - -i_findloc1_c = \ -generated/findloc1_i1.c \ -generated/findloc1_i2.c \ -generated/findloc1_i4.c \ -generated/findloc1_i8.c \ -generated/findloc1_i16.c \ -generated/findloc1_r4.c \ -generated/findloc1_r8.c \ -generated/findloc1_r10.c \ -generated/findloc1_r16.c \ -generated/findloc1_r17.c \ -generated/findloc1_c4.c \ -generated/findloc1_c8.c \ -generated/findloc1_c10.c \ -generated/findloc1_c16.c \ -generated/findloc1_c17.c - -i_findloc1s_c = \ -generated/findloc1_s1.c \ -generated/findloc1_s4.c - -i_findloc2s_c = \ -generated/findloc2_s1.c \ -generated/findloc2_s4.c - -i_maxloc0_c = \ +generated/count_16_l.c \ generated/maxloc0_4_i1.c \ generated/maxloc0_8_i1.c \ generated/maxloc0_16_i1.c \ @@ -1185,17 +1112,7 @@ generated/maxloc0_8_r16.c \ generated/maxloc0_16_r16.c \ generated/maxloc0_4_r17.c \ generated/maxloc0_8_r17.c \ -generated/maxloc0_16_r17.c - -i_maxloc0s_c = \ -generated/maxloc0_4_s1.c \ -generated/maxloc0_4_s4.c \ -generated/maxloc0_8_s1.c \ -generated/maxloc0_8_s4.c \ -generated/maxloc0_16_s1.c \ -generated/maxloc0_16_s4.c - -i_maxloc1_c = \ +generated/maxloc0_16_r17.c \ generated/maxloc1_4_i1.c \ generated/maxloc1_8_i1.c \ generated/maxloc1_16_i1.c \ @@ -1205,6 +1122,12 @@ generated/maxloc1_16_i2.c \ generated/maxloc1_4_i4.c \ generated/maxloc1_8_i4.c \ generated/maxloc1_16_i4.c \ +generated/maxloc1_4_i8.c \ +generated/maxloc1_8_i8.c \ +generated/maxloc1_16_i8.c \ +generated/maxloc1_4_i16.c \ +generated/maxloc1_8_i16.c \ +generated/maxloc1_16_i16.c \ generated/maxloc1_4_m1.c \ generated/maxloc1_8_m1.c \ generated/maxloc1_16_m1.c \ @@ -1219,7 +1142,7 @@ generated/maxloc1_8_m8.c \ generated/maxloc1_16_m8.c \ generated/maxloc1_4_m16.c \ generated/maxloc1_8_m16.c \ -generated/maxloc1_16_i16.c \ +generated/maxloc1_16_m16.c \ generated/maxloc1_4_r4.c \ generated/maxloc1_8_r4.c \ generated/maxloc1_16_r4.c \ @@ -1234,25 +1157,7 @@ generated/maxloc1_8_r16.c \ generated/maxloc1_16_r16.c \ generated/maxloc1_4_r17.c \ generated/maxloc1_8_r17.c \ -generated/maxloc1_16_r17.c - -i_maxloc1s_c = \ -generated/maxloc1_4_s1.c \ -generated/maxloc1_4_s4.c \ -generated/maxloc1_8_s1.c \ -generated/maxloc1_8_s4.c \ -generated/maxloc1_16_s1.c \ -generated/maxloc1_16_s4.c - -i_maxloc2s_c = \ -generated/maxloc2_4_s1.c \ -generated/maxloc2_4_s4.c \ -generated/maxloc2_8_s1.c \ -generated/maxloc2_8_s4.c \ -generated/maxloc2_16_s1.c \ -generated/maxloc2_16_s4.c - -i_maxval_c = \ +generated/maxloc1_16_r17.c \ generated/maxval_i1.c \ generated/maxval_i2.c \ generated/maxval_i4.c \ @@ -1267,17 +1172,7 @@ generated/maxval_r4.c \ generated/maxval_r8.c \ generated/maxval_r10.c \ generated/maxval_r16.c \ -generated/maxval_r17.c - -i_maxval0s_c = \ -generated/maxval0_s1.c \ -generated/maxval0_s4.c - -i_maxval1s_c = \ -generated/maxval1_s1.c \ -generated/maxval1_s4.c - -i_minloc0_c = \ +generated/maxval_r17.c \ generated/minloc0_4_i1.c \ generated/minloc0_8_i1.c \ generated/minloc0_16_i1.c \ @@ -1322,17 +1217,7 @@ generated/minloc0_8_r16.c \ generated/minloc0_16_r16.c \ generated/minloc0_4_r17.c \ generated/minloc0_8_r17.c \ -generated/minloc0_16_r17.c - -i_minloc0s_c = \ -generated/minloc0_4_s1.c \ -generated/minloc0_4_s4.c \ -generated/minloc0_8_s1.c \ -generated/minloc0_8_s4.c \ -generated/minloc0_16_s1.c \ -generated/minloc0_16_s4.c - -i_minloc1_c = \ +generated/minloc0_16_r17.c \ generated/minloc1_4_i1.c \ generated/minloc1_8_i1.c \ generated/minloc1_16_i1.c \ @@ -1377,25 +1262,7 @@ generated/minloc1_8_r16.c \ generated/minloc1_16_r16.c \ generated/minloc1_4_r17.c \ generated/minloc1_8_r17.c \ -generated/minloc1_16_r17.c - -i_minloc1s_c = \ -generated/minloc1_4_s1.c \ -generated/minloc1_4_s4.c \ -generated/minloc1_8_s1.c \ -generated/minloc1_8_s4.c \ -generated/minloc1_16_s1.c \ -generated/minloc1_16_s4.c - -i_minloc2s_c = \ -generated/minloc2_4_s1.c \ -generated/minloc2_4_s4.c \ -generated/minloc2_8_s1.c \ -generated/minloc2_8_s4.c \ -generated/minloc2_16_s1.c \ -generated/minloc2_16_s4.c - -i_minval_c = \ +generated/minloc1_16_r17.c \ generated/minval_i1.c \ generated/minval_i2.c \ generated/minval_i4.c \ @@ -1410,48 +1277,7 @@ generated/minval_r4.c \ generated/minval_r8.c \ generated/minval_r10.c \ generated/minval_r16.c \ -generated/minval_r17.c - -i_minval0s_c = \ -generated/minval0_s1.c \ -generated/minval0_s4.c - -i_minval1s_c = \ -generated/minval1_s1.c \ -generated/minval1_s4.c - -i_norm2_c = \ -generated/norm2_r4.c \ -generated/norm2_r8.c \ -generated/norm2_r10.c \ -generated/norm2_r16.c \ -generated/norm2_r17.c - -i_parity_c = \ -generated/parity_l1.c \ -generated/parity_l2.c \ -generated/parity_l4.c \ -generated/parity_l8.c \ -generated/parity_l16.c - -i_sum_c = \ -generated/sum_i1.c \ -generated/sum_i2.c \ -generated/sum_i4.c \ -generated/sum_i8.c \ -generated/sum_i16.c \ -generated/sum_r4.c \ -generated/sum_r8.c \ -generated/sum_r10.c \ -generated/sum_r16.c \ -generated/sum_r17.c \ -generated/sum_c4.c \ -generated/sum_c8.c \ -generated/sum_c10.c \ -generated/sum_c16.c \ -generated/sum_c17.c - -i_product_c = \ +generated/minval_r17.c \ generated/product_i1.c \ generated/product_i2.c \ generated/product_i4.c \ @@ -1466,55 +1292,66 @@ generated/product_c4.c \ generated/product_c8.c \ generated/product_c10.c \ generated/product_c16.c \ -generated/product_c17.c - -i_matmul_c = \ -generated/matmul_i1.c \ -generated/matmul_i2.c \ -generated/matmul_i4.c \ -generated/matmul_i8.c \ -generated/matmul_i16.c \ -generated/matmul_r4.c \ -generated/matmul_r8.c \ -generated/matmul_r10.c \ -generated/matmul_r16.c \ -generated/matmul_r17.c \ -generated/matmul_c4.c \ -generated/matmul_c8.c \ -generated/matmul_c10.c \ -generated/matmul_c16.c \ -generated/matmul_c17.c - -i_matmulavx128_c = \ -generated/matmulavx128_i1.c \ -generated/matmulavx128_i2.c \ -generated/matmulavx128_i4.c \ -generated/matmulavx128_i8.c \ -generated/matmulavx128_i16.c \ -generated/matmulavx128_r4.c \ -generated/matmulavx128_r8.c \ -generated/matmulavx128_r10.c \ -generated/matmulavx128_r16.c \ -generated/matmulavx128_r17.c \ -generated/matmulavx128_c4.c \ -generated/matmulavx128_c8.c \ -generated/matmulavx128_c10.c \ -generated/matmulavx128_c16.c \ -generated/matmulavx128_c17.c - -i_matmull_c = \ -generated/matmul_l4.c \ -generated/matmul_l8.c \ -generated/matmul_l16.c - -i_shape_c = \ +generated/product_c17.c \ +generated/sum_i1.c \ +generated/sum_i2.c \ +generated/sum_i4.c \ +generated/sum_i8.c \ +generated/sum_i16.c \ +generated/sum_r4.c \ +generated/sum_r8.c \ +generated/sum_r10.c \ +generated/sum_r16.c \ +generated/sum_r17.c \ +generated/sum_c4.c \ +generated/sum_c8.c \ +generated/sum_c10.c \ +generated/sum_c16.c \ +generated/sum_c17.c \ +generated/bessel_r4.c \ +generated/bessel_r8.c \ +generated/bessel_r10.c \ +generated/bessel_r16.c \ +generated/bessel_r17.c \ +generated/iall_i1.c \ +generated/iall_i2.c \ +generated/iall_i4.c \ +generated/iall_i8.c \ +generated/iall_i16.c \ +generated/iany_i1.c \ +generated/iany_i2.c \ +generated/iany_i4.c \ +generated/iany_i8.c \ +generated/iany_i16.c \ +generated/iparity_i1.c \ +generated/iparity_i2.c \ +generated/iparity_i4.c \ +generated/iparity_i8.c \ +generated/iparity_i16.c \ +generated/norm2_r4.c \ +generated/norm2_r8.c \ +generated/norm2_r10.c \ +generated/norm2_r16.c \ +generated/norm2_r17.c \ +generated/parity_l1.c \ +generated/parity_l2.c \ +generated/parity_l4.c \ +generated/parity_l8.c \ +generated/parity_l16.c \ generated/shape_i1.c \ generated/shape_i2.c \ generated/shape_i4.c \ generated/shape_i8.c \ -generated/shape_i16.c - -i_reshape_c = \ +generated/shape_i16.c \ +generated/eoshift1_4.c \ +generated/eoshift1_8.c \ +generated/eoshift1_16.c \ +generated/eoshift3_4.c \ +generated/eoshift3_8.c \ +generated/eoshift3_16.c \ +generated/cshift1_4.c \ +generated/cshift1_8.c \ +generated/cshift1_16.c \ generated/reshape_i4.c \ generated/reshape_i8.c \ generated/reshape_i16.c \ @@ -1527,88 +1364,7 @@ generated/reshape_c4.c \ generated/reshape_c8.c \ generated/reshape_c10.c \ generated/reshape_c16.c \ -generated/reshape_c17.c - -i_eoshift1_c = \ -generated/eoshift1_4.c \ -generated/eoshift1_8.c \ -generated/eoshift1_16.c - -i_eoshift3_c = \ -generated/eoshift3_4.c \ -generated/eoshift3_8.c \ -generated/eoshift3_16.c - -i_cshift0_c = \ -generated/cshift0_i1.c \ -generated/cshift0_i2.c \ -generated/cshift0_i4.c \ -generated/cshift0_i8.c \ -generated/cshift0_i16.c \ -generated/cshift0_r4.c \ -generated/cshift0_r8.c \ -generated/cshift0_r10.c \ -generated/cshift0_r16.c \ -generated/cshift0_r17.c \ -generated/cshift0_c4.c \ -generated/cshift0_c8.c \ -generated/cshift0_c10.c \ -generated/cshift0_c16.c \ -generated/cshift0_c17.c - -i_cshift1_c = \ -generated/cshift1_4.c \ -generated/cshift1_8.c \ -generated/cshift1_16.c - -i_cshift1a_c = \ -generated/cshift1_4_i1.c \ -generated/cshift1_4_i2.c \ -generated/cshift1_4_i4.c \ -generated/cshift1_4_i8.c \ -generated/cshift1_4_i16.c \ -generated/cshift1_4_r4.c \ -generated/cshift1_4_r8.c \ -generated/cshift1_4_r10.c \ -generated/cshift1_4_r16.c \ -generated/cshift1_4_r17.c \ -generated/cshift1_4_c4.c \ -generated/cshift1_4_c8.c \ -generated/cshift1_4_c10.c \ -generated/cshift1_4_c16.c \ -generated/cshift1_4_c17.c \ -generated/cshift1_8_i1.c \ -generated/cshift1_8_i2.c \ -generated/cshift1_8_i4.c \ -generated/cshift1_8_i8.c \ -generated/cshift1_8_i16.c \ -generated/cshift1_8_r4.c \ -generated/cshift1_8_r8.c \ -generated/cshift1_8_r10.c \ -generated/cshift1_8_r16.c \ -generated/cshift1_8_r17.c \ -generated/cshift1_8_c4.c \ -generated/cshift1_8_c8.c \ -generated/cshift1_8_c10.c \ -generated/cshift1_8_c16.c \ -generated/cshift1_8_c17.c \ -generated/cshift1_16_i1.c \ -generated/cshift1_16_i2.c \ -generated/cshift1_16_i4.c \ -generated/cshift1_16_i8.c \ -generated/cshift1_16_i16.c \ -generated/cshift1_16_r4.c \ -generated/cshift1_16_r8.c \ -generated/cshift1_16_r10.c \ -generated/cshift1_16_r16.c \ -generated/cshift1_16_r17.c \ -generated/cshift1_16_c4.c \ -generated/cshift1_16_c8.c \ -generated/cshift1_16_c10.c \ -generated/cshift1_16_c16.c \ -generated/cshift1_16_c17.c - -in_pack_c = \ +generated/reshape_c17.c \ generated/in_pack_i1.c \ generated/in_pack_i2.c \ generated/in_pack_i4.c \ @@ -1623,9 +1379,7 @@ generated/in_pack_c4.c \ generated/in_pack_c8.c \ generated/in_pack_c10.c \ generated/in_pack_c16.c \ -generated/in_pack_c17.c - -in_unpack_c = \ +generated/in_pack_c17.c \ generated/in_unpack_i1.c \ generated/in_unpack_i2.c \ generated/in_unpack_i4.c \ @@ -1640,9 +1394,7 @@ generated/in_unpack_c4.c \ generated/in_unpack_c8.c \ generated/in_unpack_c10.c \ generated/in_unpack_c16.c \ -generated/in_unpack_c17.c - -i_pow_c = \ +generated/in_unpack_c17.c \ generated/pow_i4_i4.c \ generated/pow_i8_i4.c \ generated/pow_i16_i4.c \ @@ -1678,36 +1430,7 @@ generated/pow_c4_i16.c \ generated/pow_c8_i16.c \ generated/pow_c10_i16.c \ generated/pow_c16_i16.c \ -generated/pow_c17_i16.c - -i_powu_c = \ -generated/pow_m1_m1.c \ -generated/pow_m1_m2.c \ -generated/pow_m1_m4.c \ -generated/pow_m1_m8.c \ -generated/pow_m1_m16.c \ -generated/pow_m2_m1.c \ -generated/pow_m2_m2.c \ -generated/pow_m2_m4.c \ -generated/pow_m2_m8.c \ -generated/pow_m2_m16.c \ -generated/pow_m4_m1.c \ -generated/pow_m4_m2.c \ -generated/pow_m4_m4.c \ -generated/pow_m4_m8.c \ -generated/pow_m4_m16.c \ -generated/pow_m8_m1.c \ -generated/pow_m8_m2.c \ -generated/pow_m8_m4.c \ -generated/pow_m8_m8.c \ -generated/pow_m8_m16.c \ -generated/pow_m16_m1.c \ -generated/pow_m16_m2.c \ -generated/pow_m16_m4.c \ -generated/pow_m16_m8.c \ -generated/pow_m16_m16.c - -i_pack_c = \ +generated/pow_c17_i16.c \ generated/pack_i1.c \ generated/pack_i2.c \ generated/pack_i4.c \ @@ -1722,9 +1445,7 @@ generated/pack_c4.c \ generated/pack_c8.c \ generated/pack_c10.c \ generated/pack_c16.c \ -generated/pack_c17.c - -i_unpack_c = \ +generated/pack_c17.c \ generated/unpack_i1.c \ generated/unpack_i2.c \ generated/unpack_i4.c \ @@ -1739,9 +1460,7 @@ generated/unpack_c4.c \ generated/unpack_c8.c \ generated/unpack_c10.c \ generated/unpack_c16.c \ -generated/unpack_c17.c - -i_spread_c = \ +generated/unpack_c17.c \ generated/spread_i1.c \ generated/spread_i2.c \ generated/spread_i4.c \ @@ -1756,44 +1475,180 @@ generated/spread_c4.c \ generated/spread_c8.c \ generated/spread_c10.c \ generated/spread_c16.c \ -generated/spread_c17.c - -i_isobinding_c = \ -runtime/ISO_Fortran_binding.c - -m4_files = m4/iparm.m4 m4/ifunction.m4 m4/iforeach.m4 m4/all.m4 \ - m4/any.m4 m4/count.m4 m4/maxloc0.m4 m4/maxloc1.m4 m4/maxval.m4 \ - m4/minloc0.m4 m4/minloc1.m4 m4/minval.m4 m4/product.m4 m4/sum.m4 \ - m4/matmul.m4 m4/matmull.m4 m4/ifunction_logical.m4 \ - m4/ctrig.m4 m4/cexp.m4 m4/chyp.m4 m4/mtype.m4 \ - m4/specific.m4 m4/specific2.m4 m4/head.m4 m4/shape.m4 m4/reshape.m4 \ - m4/eoshift1.m4 m4/eoshift3.m4 \ - m4/pow.m4 \ - m4/misc_specifics.m4 m4/pack.m4 \ - m4/unpack.m4 m4/spread.m4 m4/bessel.m4 m4/norm2.m4 m4/parity.m4 \ - m4/iall.m4 m4/iany.m4 m4/iparity.m4 m4/iforeach-s.m4 m4/findloc0.m4 \ - m4/findloc0s.m4 m4/ifindloc0.m4 m4/findloc1.m4 m4/ifindloc1.m4 \ - m4/findloc2s.m4 m4/ifindloc2.m4 - -gfor_built_src = $(i_all_c) $(i_any_c) $(i_count_c) $(i_maxloc0_c) \ - $(i_maxloc1_c) $(i_maxval_c) $(i_minloc0_c) $(i_minloc1_c) $(i_minval_c) \ - $(i_product_c) $(i_sum_c) $(i_bessel_c) $(i_iall_c) $(i_iany_c) \ - $(i_iparity_c) $(i_norm2_c) $(i_parity_c) \ - $(i_matmul_c) $(i_matmull_c) $(i_shape_c) $(i_eoshift1_c) \ - $(i_eoshift3_c) $(i_cshift1_c) $(i_reshape_c) $(in_pack_c) $(in_unpack_c) \ - $(i_pow_c) $(i_pack_c) $(i_unpack_c) $(i_matmulavx128_c) \ - $(i_spread_c) selected_int_kind.inc selected_real_kind.inc kinds.h \ - $(i_cshift0_c) kinds.inc c99_protos.inc fpu-target.h fpu-target.inc \ - include/ISO_Fortran_binding.h \ - $(i_cshift1a_c) $(i_maxloc0s_c) $(i_minloc0s_c) $(i_maxloc1s_c) \ - $(i_minloc1s_c) $(i_maxloc2s_c) $(i_minloc2s_c) $(i_maxvals_c) \ - $(i_maxval0s_c) $(i_minval0s_c) $(i_maxval1s_c) $(i_minval1s_c) \ - $(i_findloc0_c) $(i_findloc0s_c) $(i_findloc1_c) $(i_findloc1s_c) \ - $(i_findloc2s_c) $(i_isobinding_c) $(i_powu_c) - - -# Machine generated specifics -gfor_built_specific_src = \ +generated/spread_c17.c \ +generated/cshift0_i1.c \ +generated/cshift0_i2.c \ +generated/cshift0_i4.c \ +generated/cshift0_i8.c \ +generated/cshift0_i16.c \ +generated/cshift0_r4.c \ +generated/cshift0_r8.c \ +generated/cshift0_r10.c \ +generated/cshift0_r16.c \ +generated/cshift0_r17.c \ +generated/cshift0_c4.c \ +generated/cshift0_c8.c \ +generated/cshift0_c10.c \ +generated/cshift0_c16.c \ +generated/cshift0_c17.c \ +generated/cshift1_4_i1.c \ +generated/cshift1_4_i2.c \ +generated/cshift1_4_i4.c \ +generated/cshift1_4_i8.c \ +generated/cshift1_4_i16.c \ +generated/cshift1_4_r4.c \ +generated/cshift1_4_r8.c \ +generated/cshift1_4_r10.c \ +generated/cshift1_4_r16.c \ +generated/cshift1_4_r17.c \ +generated/cshift1_4_c4.c \ +generated/cshift1_4_c8.c \ +generated/cshift1_4_c10.c \ +generated/cshift1_4_c16.c \ +generated/cshift1_4_c17.c \ +generated/cshift1_8_i1.c \ +generated/cshift1_8_i2.c \ +generated/cshift1_8_i4.c \ +generated/cshift1_8_i8.c \ +generated/cshift1_8_i16.c \ +generated/cshift1_8_r4.c \ +generated/cshift1_8_r8.c \ +generated/cshift1_8_r10.c \ +generated/cshift1_8_r16.c \ +generated/cshift1_8_r17.c \ +generated/cshift1_8_c4.c \ +generated/cshift1_8_c8.c \ +generated/cshift1_8_c10.c \ +generated/cshift1_8_c16.c \ +generated/cshift1_8_c17.c \ +generated/cshift1_16_i1.c \ +generated/cshift1_16_i2.c \ +generated/cshift1_16_i4.c \ +generated/cshift1_16_i8.c \ +generated/cshift1_16_i16.c \ +generated/cshift1_16_r4.c \ +generated/cshift1_16_r8.c \ +generated/cshift1_16_r10.c \ +generated/cshift1_16_r16.c \ +generated/cshift1_16_r17.c \ +generated/cshift1_16_c4.c \ +generated/cshift1_16_c8.c \ +generated/cshift1_16_c10.c \ +generated/cshift1_16_c16.c \ +generated/cshift1_16_c17.c \ +generated/findloc0_i1.c \ +generated/findloc0_i2.c \ +generated/findloc0_i4.c \ +generated/findloc0_i8.c \ +generated/findloc0_i16.c \ +generated/findloc0_r4.c \ +generated/findloc0_r8.c \ +generated/findloc0_r10.c \ +generated/findloc0_r16.c \ +generated/findloc0_r17.c \ +generated/findloc0_c4.c \ +generated/findloc0_c8.c \ +generated/findloc0_c10.c \ +generated/findloc0_c16.c \ +generated/findloc0_c17.c \ +generated/findloc0_s1.c \ +generated/findloc0_s4.c \ +generated/findloc1_i1.c \ +generated/findloc1_i2.c \ +generated/findloc1_i4.c \ +generated/findloc1_i8.c \ +generated/findloc1_i16.c \ +generated/findloc1_r4.c \ +generated/findloc1_r8.c \ +generated/findloc1_r10.c \ +generated/findloc1_r16.c \ +generated/findloc1_r17.c \ +generated/findloc1_c4.c \ +generated/findloc1_c8.c \ +generated/findloc1_c10.c \ +generated/findloc1_c16.c \ +generated/findloc1_c17.c \ +generated/findloc1_s1.c \ +generated/findloc1_s4.c \ +generated/findloc2_s1.c \ +generated/findloc2_s4.c \ +generated/maxloc0_4_s1.c \ +generated/maxloc0_4_s4.c \ +generated/maxloc0_8_s1.c \ +generated/maxloc0_8_s4.c \ +generated/maxloc0_16_s1.c \ +generated/maxloc0_16_s4.c \ +generated/maxloc1_4_s1.c \ +generated/maxloc1_4_s4.c \ +generated/maxloc1_8_s1.c \ +generated/maxloc1_8_s4.c \ +generated/maxloc1_16_s1.c \ +generated/maxloc1_16_s4.c \ +generated/maxloc2_4_s1.c \ +generated/maxloc2_4_s4.c \ +generated/maxloc2_8_s1.c \ +generated/maxloc2_8_s4.c \ +generated/maxloc2_16_s1.c \ +generated/maxloc2_16_s4.c \ +generated/maxval0_s1.c \ +generated/maxval0_s4.c \ +generated/maxval1_s1.c \ +generated/maxval1_s4.c \ +generated/minloc0_4_s1.c \ +generated/minloc0_4_s4.c \ +generated/minloc0_8_s1.c \ +generated/minloc0_8_s4.c \ +generated/minloc0_16_s1.c \ +generated/minloc0_16_s4.c \ +generated/minloc1_4_s1.c \ +generated/minloc1_4_s4.c \ +generated/minloc1_8_s1.c \ +generated/minloc1_8_s4.c \ +generated/minloc1_16_s1.c \ +generated/minloc1_16_s4.c \ +generated/minloc2_4_s1.c \ +generated/minloc2_4_s4.c \ +generated/minloc2_8_s1.c \ +generated/minloc2_8_s4.c \ +generated/minloc2_16_s1.c \ +generated/minloc2_16_s4.c \ +generated/minval0_s1.c \ +generated/minval0_s4.c \ +generated/minval1_s1.c \ +generated/minval1_s4.c \ +generated/pow_m1_m1.c \ +generated/pow_m1_m2.c \ +generated/pow_m1_m4.c \ +generated/pow_m1_m8.c \ +generated/pow_m1_m16.c \ +generated/pow_m2_m1.c \ +generated/pow_m2_m2.c \ +generated/pow_m2_m4.c \ +generated/pow_m2_m8.c \ +generated/pow_m2_m16.c \ +generated/pow_m4_m1.c \ +generated/pow_m4_m2.c \ +generated/pow_m4_m4.c \ +generated/pow_m4_m8.c \ +generated/pow_m4_m16.c \ +generated/pow_m8_m1.c \ +generated/pow_m8_m2.c \ +generated/pow_m8_m4.c \ +generated/pow_m8_m8.c \ +generated/pow_m8_m16.c \ +generated/pow_m16_m1.c \ +generated/pow_m16_m2.c \ +generated/pow_m16_m4.c \ +generated/pow_m16_m8.c \ +generated/pow_m16_m16.c \ +$(i_matmul_c) $(i_matmull_c) $(i_matmulavx128_c) \ +selected_int_kind.inc selected_real_kind.inc kinds.h \ +kinds.inc c99_protos.inc fpu-target.h fpu-target.inc \ +include/ISO_Fortran_binding.h runtime/ISO_Fortran_binding.c + + +# Specifics +gfor_specific_src = \ generated/_abs_c4.F90 \ generated/_abs_c8.F90 \ generated/_abs_c10.F90 \ @@ -1931,9 +1786,7 @@ generated/_anint_r4.F90 \ generated/_anint_r8.F90 \ generated/_anint_r10.F90 \ generated/_anint_r16.F90 \ -generated/_anint_r17.F90 - -gfor_built_specific2_src = \ +generated/_anint_r17.F90 \ generated/_sign_i4.F90 \ generated/_sign_i8.F90 \ generated/_sign_i16.F90 \ @@ -1962,35 +1815,17 @@ generated/_mod_r4.F90 \ generated/_mod_r8.F90 \ generated/_mod_r10.F90 \ generated/_mod_r16.F90 \ -generated/_mod_r17.F90 - -gfor_misc_specifics = generated/misc_specifics.F90 -gfor_specific_src = \ -$(gfor_built_specific_src) \ -$(gfor_built_specific2_src) \ -$(gfor_misc_specifics) \ +generated/_mod_r17.F90 \ +generated/misc_specifics.F90 \ intrinsics/dprod_r8.f90 \ intrinsics/f2c_specifics.F90 \ intrinsics/random_init.f90 -BUILT_SOURCES = $(gfor_built_src) $(gfor_built_specific_src) \ - $(gfor_built_specific2_src) $(gfor_misc_specifics) - +BUILT_SOURCES = $(gfor_built_src) libgfortran_la_SOURCES = $(gfor_src) $(gfor_built_src) $(gfor_io_src) \ $(gfor_helper_src) $(gfor_ieee_src) $(gfor_io_headers) $(gfor_specific_src) -I_M4_DEPS = m4/iparm.m4 m4/mtype.m4 -I_M4_DEPS0 = $(I_M4_DEPS) m4/iforeach.m4 -I_M4_DEPS1 = $(I_M4_DEPS) m4/ifunction.m4 -I_M4_DEPS2 = $(I_M4_DEPS) m4/ifunction_logical.m4 -I_M4_DEPS3 = $(I_M4_DEPS) m4/iforeach-s.m4 -I_M4_DEPS4 = $(I_M4_DEPS) m4/ifunction-s.m4 -I_M4_DEPS5 = $(I_M4_DEPS) m4/iforeach-s2.m4 -I_M4_DEPS6 = $(I_M4_DEPS) m4/ifunction-s2.m4 -I_M4_DEPS7 = $(I_M4_DEPS) m4/ifindloc0.m4 -I_M4_DEPS8 = $(I_M4_DEPS) m4/ifindloc1.m4 -I_M4_DEPS9 = $(I_M4_DEPS) m4/ifindloc2.m4 -EXTRA_DIST = $(m4_files) +EXTRA_DIST = m4 MULTISRCTOP = MULTIBUILDTOP = MULTIDIRS = @@ -2311,6 +2146,18 @@ generated/maxloc1_8_i4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/maxloc1_16_i4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) +generated/maxloc1_4_i8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/maxloc1_8_i8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/maxloc1_16_i8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/maxloc1_4_i16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/maxloc1_8_i16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/maxloc1_16_i16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) generated/maxloc1_4_m1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/maxloc1_8_m1.lo: generated/$(am__dirstamp) \ @@ -2339,7 +2186,7 @@ generated/maxloc1_4_m16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/maxloc1_8_m16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc1_16_i16.lo: generated/$(am__dirstamp) \ +generated/maxloc1_16_m16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/maxloc1_4_r4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) @@ -2731,42 +2578,6 @@ generated/parity_l8.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/parity_l16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_i1.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_i2.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_i4.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_i8.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_i16.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_r4.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_r8.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_r10.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_r16.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_r17.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_c4.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_c8.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_c10.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_c16.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_c17.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_l4.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_l8.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmul_l16.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) generated/shape_i1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/shape_i2.lo: generated/$(am__dirstamp) \ @@ -3013,36 +2824,6 @@ generated/unpack_c16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/unpack_c17.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_i1.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_i2.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_i4.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_i8.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_i16.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_r4.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_r8.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_r10.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_r16.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_r17.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_c4.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_c8.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_c10.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_c16.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) -generated/matmulavx128_c17.lo: generated/$(am__dirstamp) \ - generated/$(DEPDIR)/$(am__dirstamp) generated/spread_i1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/spread_i2.lo: generated/$(am__dirstamp) \ @@ -3193,168 +2974,166 @@ generated/cshift1_16_c16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/cshift1_16_c17.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc0_4_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_i1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc0_4_s4.lo: generated/$(am__dirstamp) \ +generated/findloc0_i2.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc0_8_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_i4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc0_8_s4.lo: generated/$(am__dirstamp) \ +generated/findloc0_i8.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc0_16_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_i16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc0_16_s4.lo: generated/$(am__dirstamp) \ +generated/findloc0_r4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc0_4_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_r8.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc0_4_s4.lo: generated/$(am__dirstamp) \ +generated/findloc0_r10.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc0_8_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_r16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc0_8_s4.lo: generated/$(am__dirstamp) \ +generated/findloc0_r17.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc0_16_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_c4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc0_16_s4.lo: generated/$(am__dirstamp) \ +generated/findloc0_c8.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc1_4_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_c10.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc1_4_s4.lo: generated/$(am__dirstamp) \ +generated/findloc0_c16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc1_8_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_c17.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc1_8_s4.lo: generated/$(am__dirstamp) \ +generated/findloc0_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc1_16_s1.lo: generated/$(am__dirstamp) \ +generated/findloc0_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc1_16_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_i1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc1_4_s1.lo: generated/$(am__dirstamp) \ +generated/findloc1_i2.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc1_4_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_i4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc1_8_s1.lo: generated/$(am__dirstamp) \ +generated/findloc1_i8.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc1_8_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_i16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc1_16_s1.lo: generated/$(am__dirstamp) \ +generated/findloc1_r4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc1_16_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_r8.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc2_4_s1.lo: generated/$(am__dirstamp) \ +generated/findloc1_r10.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc2_4_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_r16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc2_8_s1.lo: generated/$(am__dirstamp) \ +generated/findloc1_r17.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc2_8_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_c4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc2_16_s1.lo: generated/$(am__dirstamp) \ +generated/findloc1_c8.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxloc2_16_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_c10.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc2_4_s1.lo: generated/$(am__dirstamp) \ +generated/findloc1_c16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc2_4_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_c17.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc2_8_s1.lo: generated/$(am__dirstamp) \ +generated/findloc1_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc2_8_s4.lo: generated/$(am__dirstamp) \ +generated/findloc1_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc2_16_s1.lo: generated/$(am__dirstamp) \ +generated/findloc2_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minloc2_16_s4.lo: generated/$(am__dirstamp) \ +generated/findloc2_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxval0_s1.lo: generated/$(am__dirstamp) \ +generated/maxloc0_4_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxval0_s4.lo: generated/$(am__dirstamp) \ +generated/maxloc0_4_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minval0_s1.lo: generated/$(am__dirstamp) \ +generated/maxloc0_8_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minval0_s4.lo: generated/$(am__dirstamp) \ +generated/maxloc0_8_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxval1_s1.lo: generated/$(am__dirstamp) \ +generated/maxloc0_16_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/maxval1_s4.lo: generated/$(am__dirstamp) \ +generated/maxloc0_16_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minval1_s1.lo: generated/$(am__dirstamp) \ +generated/maxloc1_4_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/minval1_s4.lo: generated/$(am__dirstamp) \ +generated/maxloc1_4_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_i1.lo: generated/$(am__dirstamp) \ +generated/maxloc1_8_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_i2.lo: generated/$(am__dirstamp) \ +generated/maxloc1_8_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_i4.lo: generated/$(am__dirstamp) \ +generated/maxloc1_16_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_i8.lo: generated/$(am__dirstamp) \ +generated/maxloc1_16_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_i16.lo: generated/$(am__dirstamp) \ +generated/maxloc2_4_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_r4.lo: generated/$(am__dirstamp) \ +generated/maxloc2_4_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_r8.lo: generated/$(am__dirstamp) \ +generated/maxloc2_8_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_r10.lo: generated/$(am__dirstamp) \ +generated/maxloc2_8_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_r16.lo: generated/$(am__dirstamp) \ +generated/maxloc2_16_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_r17.lo: generated/$(am__dirstamp) \ +generated/maxloc2_16_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_c4.lo: generated/$(am__dirstamp) \ +generated/maxval0_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_c8.lo: generated/$(am__dirstamp) \ +generated/maxval0_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_c10.lo: generated/$(am__dirstamp) \ +generated/maxval1_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_c16.lo: generated/$(am__dirstamp) \ +generated/maxval1_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_c17.lo: generated/$(am__dirstamp) \ +generated/minloc0_4_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_s1.lo: generated/$(am__dirstamp) \ +generated/minloc0_4_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc0_s4.lo: generated/$(am__dirstamp) \ +generated/minloc0_8_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_i1.lo: generated/$(am__dirstamp) \ +generated/minloc0_8_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_i2.lo: generated/$(am__dirstamp) \ +generated/minloc0_16_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_i4.lo: generated/$(am__dirstamp) \ +generated/minloc0_16_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_i8.lo: generated/$(am__dirstamp) \ +generated/minloc1_4_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_i16.lo: generated/$(am__dirstamp) \ +generated/minloc1_4_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_r4.lo: generated/$(am__dirstamp) \ +generated/minloc1_8_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_r8.lo: generated/$(am__dirstamp) \ +generated/minloc1_8_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_r10.lo: generated/$(am__dirstamp) \ +generated/minloc1_16_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_r16.lo: generated/$(am__dirstamp) \ +generated/minloc1_16_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_r17.lo: generated/$(am__dirstamp) \ +generated/minloc2_4_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_c4.lo: generated/$(am__dirstamp) \ +generated/minloc2_4_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_c8.lo: generated/$(am__dirstamp) \ +generated/minloc2_8_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_c10.lo: generated/$(am__dirstamp) \ +generated/minloc2_8_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_c16.lo: generated/$(am__dirstamp) \ +generated/minloc2_16_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_c17.lo: generated/$(am__dirstamp) \ +generated/minloc2_16_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_s1.lo: generated/$(am__dirstamp) \ +generated/minval0_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc1_s4.lo: generated/$(am__dirstamp) \ +generated/minval0_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc2_s1.lo: generated/$(am__dirstamp) \ +generated/minval1_s1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -generated/findloc2_s4.lo: generated/$(am__dirstamp) \ +generated/minval1_s4.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) -runtime/ISO_Fortran_binding.lo: runtime/$(am__dirstamp) \ - runtime/$(DEPDIR)/$(am__dirstamp) generated/pow_m1_m1.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/pow_m1_m2.lo: generated/$(am__dirstamp) \ @@ -3405,6 +3184,74 @@ generated/pow_m16_m8.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) generated/pow_m16_m16.lo: generated/$(am__dirstamp) \ generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_i1.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_i2.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_i4.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_i8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_i16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_r4.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_r8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_r10.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_r16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_r17.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_c4.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_c8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_c10.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_c16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_c17.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_l4.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_l8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmul_l16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_i1.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_i2.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_i4.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_i8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_i16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_r4.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_r8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_r10.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_r16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_r17.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_c4.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_c8.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_c10.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_c16.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +generated/matmulavx128_c17.lo: generated/$(am__dirstamp) \ + generated/$(DEPDIR)/$(am__dirstamp) +runtime/ISO_Fortran_binding.lo: runtime/$(am__dirstamp) \ + runtime/$(DEPDIR)/$(am__dirstamp) io/$(am__dirstamp): @$(MKDIR_P) io @: > io/$(am__dirstamp) @@ -4197,7 +4044,9 @@ distclean-compile: @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_i16.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_i2.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_i4.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_i8.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_m1.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_m16.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_m2.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_m4.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_m8.Plo@am__quote@ @@ -4209,8 +4058,10 @@ distclean-compile: @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_s1.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_16_s4.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_i1.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_i16.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_i2.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_i4.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_i8.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_m1.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_m16.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_m2.Plo@am__quote@ @@ -4224,8 +4075,10 @@ distclean-compile: @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_s1.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_4_s4.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_8_i1.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_8_i16.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_8_i2.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_8_i4.Plo@am__quote@ +@AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_8_i8.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_8_m1.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_8_m16.Plo@am__quote@ @AMDEP_TRUE@@am__include@ @am__quote@generated/$(DEPDIR)/maxloc1_8_m2.Plo@am__quote@ @@ -5067,162 +4920,6 @@ include/ISO_Fortran_binding.h: $(srcdir)/ISO_Fortran_binding.h $(MKDIR_P) include cp $(srcdir)/ISO_Fortran_binding.h $@ -@MAINTAINER_MODE_TRUE@$(i_all_c): m4/all.m4 $(I_M4_DEPS2) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 all.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_bessel_c): m4/bessel.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 bessel.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_any_c): m4/any.m4 $(I_M4_DEPS2) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 any.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_count_c): m4/count.m4 $(I_M4_DEPS2) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 count.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_findloc0_c): m4/findloc0.m4 $(I_M4_DEPS7) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc0.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_findloc0s_c): m4/findloc0s.m4 $(I_M4_DEPS7) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc0s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_findloc1_c): m4/findloc1.m4 $(I_M4_DEPS8) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc1.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_findloc1s_c): m4/findloc1s.m4 $(I_M4_DEPS8) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc1s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_findloc2s_c): m4/findloc2s.m4 $(I_M4_DEPS9) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 findloc2s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_iall_c): m4/iall.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 iall.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_iany_c): m4/iany.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 iany.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_iparity_c): m4/iparity.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 iparity.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_maxloc0_c): m4/maxloc0.m4 $(I_M4_DEPS0) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc0.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_maxloc0s_c) : m4/maxloc0s.m4 $(I_M4_DEPS3) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc0s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_maxloc1_c): m4/maxloc1.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc1.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_maxloc1s_c): m4/maxloc1s.m4 $(I_M4_DEPS4) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc1s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_maxloc2s_c): m4/maxloc2s.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 maxloc2s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_maxval_c): m4/maxval.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 maxval.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_maxval0s_c): m4/maxval0s.m4 $(I_M4_DEPS5) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 maxval0s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_maxval1s_c): m4/maxval1s.m4 $(I_M4_DEPS6) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 maxval1s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_minloc0_c): m4/minloc0.m4 $(I_M4_DEPS0) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc0.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_minloc0s_c) : m4/minloc0s.m4 $(I_M4_DEPS3) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc0s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_minloc1_c): m4/minloc1.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc1.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_minloc1s_c): m4/minloc1s.m4 $(I_M4_DEPS4) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc1s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_minloc2s_c): m4/minloc2s.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 minloc2s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_minval_c): m4/minval.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 minval.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_minval0s_c): m4/minval0s.m4 $(I_M4_DEPS5) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 minval0s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_minval1s_c): m4/minval1s.m4 $(I_M4_DEPS6) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 minval1s.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_product_c): m4/product.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 product.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_sum_c): m4/sum.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 sum.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_matmul_c): m4/matmul.m4 m4/matmul_internal.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 matmul.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_matmulavx128_c): m4/matmulavx128.m4 m4/matmul_internal.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 matmulavx128.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_matmull_c): m4/matmull.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 matmull.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_norm2_c): m4/norm2.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 norm2.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_parity_c): m4/parity.m4 $(I_M4_DEPS1) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 parity.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_shape_c): m4/shape.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 shape.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_reshape_c): m4/reshape.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 reshape.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_eoshift1_c): m4/eoshift1.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 eoshift1.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_eoshift3_c): m4/eoshift3.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 eoshift3.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_cshift0_c): m4/cshift0.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 cshift0.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_cshift1_c): m4/cshift1.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 cshift1.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_cshift1a_c): m4/cshift1a.m4 $(I_M$_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 cshift1a.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(in_pack_c): m4/in_pack.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 in_pack.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(in_unpack_c): m4/in_unpack.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 in_unpack.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_pow_c): m4/pow.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 pow.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_powu_c): m4/powu.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 powu.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_pack_c): m4/pack.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 pack.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_unpack_c): m4/unpack.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 unpack.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(i_spread_c): m4/spread.m4 $(I_M4_DEPS) -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 spread.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(gfor_built_specific_src): m4/specific.m4 m4/head.m4 -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 specific.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(gfor_built_specific2_src): m4/specific2.m4 m4/head.m4 -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 specific2.m4 > $@ - -@MAINTAINER_MODE_TRUE@$(gfor_misc_specifics): m4/misc_specifics.m4 m4/head.m4 -@MAINTAINER_MODE_TRUE@ $(M4) -Dfile=$@ -I$(srcdir)/m4 misc_specifics.m4 > $@ - clean-local: -rm -rf include $(version_dep) diff --git a/libgfortran/acinclude.m4 b/libgfortran/acinclude.m4 index a73207e..23fd621 100644 --- a/libgfortran/acinclude.m4 +++ b/libgfortran/acinclude.m4 @@ -274,6 +274,10 @@ AC_DEFUN([LIBGFOR_CHECK_FLOAT128], [ AC_CACHE_CHECK([whether we have a usable _Float128 type], libgfor_cv_have_float128, [ GCC_TRY_COMPILE_OR_LINK([ + #ifdef __loongarch__ + #error On LoongArch we should use long double instead; __float128 is only for porting existing code easier. + #endif + _Float128 foo (_Float128 x) { _Complex _Float128 z1, z2; diff --git a/libgfortran/caf/libcaf.h b/libgfortran/caf/libcaf.h index 0b371d0..7267bc7 100644 --- a/libgfortran/caf/libcaf.h +++ b/libgfortran/caf/libcaf.h @@ -31,17 +31,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" -#if 0 -#ifndef __GNUC__ -#define __attribute__(x) -#define likely(x) (x) -#define unlikely(x) (x) -#else -#define likely(x) __builtin_expect(!!(x), 1) -#define unlikely(x) __builtin_expect(!!(x), 0) -#endif -#endif - /* Definitions of the Fortran 2008 standard; need to kept in sync with ISO_FORTRAN_ENV, cf. gcc/fortran/libgfortran.h. */ typedef enum @@ -50,14 +39,24 @@ typedef enum CAF_STAT_LOCKED, CAF_STAT_LOCKED_OTHER_IMAGE, CAF_STAT_STOPPED_IMAGE = 6000, - CAF_STAT_FAILED_IMAGE = 6001 + CAF_STAT_FAILED_IMAGE = 6001, + CAF_STAT_UNLOCKED_FAILED_IMAGE = 6002 } caf_stat_codes_t; +/* Definitions of the Fortran 2018 standard; need to kept in sync with + ISO_FORTRAN_ENV, cf. gcc/fortran/libgfortran.h. */ +typedef enum +{ + CAF_INITIAL_TEAM = 0, + CAF_PARENT_TEAM, + CAF_CURRENT_TEAM +} caf_team_level_t; /* Describes what type of array we are registerring. Keep in sync with gcc/fortran/trans.h. */ -typedef enum caf_register_t { +typedef enum caf_register_t +{ CAF_REGTYPE_COARRAY_STATIC, CAF_REGTYPE_COARRAY_ALLOC, CAF_REGTYPE_LOCK_STATIC, @@ -66,9 +65,9 @@ typedef enum caf_register_t { CAF_REGTYPE_EVENT_STATIC, CAF_REGTYPE_EVENT_ALLOC, CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY, - CAF_REGTYPE_COARRAY_ALLOC_ALLOCATE_ONLY -} -caf_register_t; + CAF_REGTYPE_COARRAY_ALLOC_ALLOCATE_ONLY, + CAF_REGTYPE_COARRAY_MAP_EXISTING, +} caf_register_t; /* Describes the action to take on _caf_deregister. Keep in sync with gcc/fortran/trans.h. */ @@ -78,8 +77,8 @@ typedef enum caf_deregister_t { } caf_deregister_t; -typedef void* caf_token_t; -typedef void * caf_team_t; +typedef void *caf_token_t; +typedef void *caf_team_t; typedef gfc_array_void gfc_descriptor_t; /* Linked list of static coarrays registered. */ @@ -93,8 +92,8 @@ caf_static_t; void _gfortran_caf_init (int *, char ***); void _gfortran_caf_finalize (void); -int _gfortran_caf_this_image (int); -int _gfortran_caf_num_images (int, int); +int _gfortran_caf_this_image (caf_team_t); +int _gfortran_caf_num_images (caf_team_t, int32_t *); void _gfortran_caf_register (size_t, caf_register_t, caf_token_t *, gfc_descriptor_t *, int *, char *, size_t); @@ -185,4 +184,11 @@ void _gfortran_caf_stopped_images (gfc_descriptor_t *, void _gfortran_caf_random_init (bool, bool); +void _gfortran_caf_form_team (int, caf_team_t *, int *, int *, char *, size_t); +void _gfortran_caf_change_team (caf_team_t, int *, char *, size_t); +void _gfortran_caf_end_team (int *, char *, size_t); +void _gfortran_caf_sync_team (caf_team_t, int *, char *, size_t); +int _gfortran_caf_team_number (caf_team_t); +caf_team_t _gfortran_caf_get_team (int32_t *); + #endif /* LIBCAF_H */ diff --git a/libgfortran/caf/single.c b/libgfortran/caf/single.c index 9c1c0c1..97876fa 100644 --- a/libgfortran/caf/single.c +++ b/libgfortran/caf/single.c @@ -50,6 +50,22 @@ typedef struct caf_single_token *caf_single_token_t; #define TOKEN(X) ((caf_single_token_t) (X)) #define MEMTOK(X) ((caf_single_token_t) (X))->memptr +struct caf_single_team +{ + struct caf_single_team *parent; + int team_no; + int index; + struct coarray_allocated + { + struct coarray_allocated *next; + caf_single_token_t token; + } *allocated; +}; +typedef struct caf_single_team *caf_single_team_t; +/* This points to the most current team. */ +static caf_single_team_t caf_team_stack = NULL, caf_initial_team; +static caf_single_team_t caf_teams_formed = NULL; + /* Single-image implementation of the CAF library. Note: For performance reasons -fcoarry=single should be used rather than this library. */ @@ -125,13 +141,39 @@ caf_internal_error (const char *msg, int *stat, char *errmsg, va_end (args); } +static void +init_caf_team_stack (void) +{ + caf_initial_team = caf_team_stack + = (caf_single_team_t) calloc (1, sizeof (struct caf_single_team)); + caf_initial_team->team_no = -1; +} void _gfortran_caf_init (int *argc __attribute__ ((unused)), char ***argv __attribute__ ((unused))) { + if (likely (!caf_team_stack)) + init_caf_team_stack (); } +static void +free_team_list (caf_single_team_t l) +{ + while (l != NULL) + { + caf_single_team_t p = l->parent; + struct coarray_allocated *ca = l->allocated; + while (ca) + { + struct coarray_allocated *nca = ca->next; + free (ca); + ca = nca; + } + free (l); + l = p; + } +} void _gfortran_caf_finalize (void) @@ -146,19 +188,22 @@ _gfortran_caf_finalize (void) free (caf_static_list); caf_static_list = tmp; } -} + free_team_list (caf_team_stack); + caf_initial_team = caf_team_stack = NULL; + free_team_list (caf_teams_formed); + caf_teams_formed = NULL; +} int -_gfortran_caf_this_image (int distance __attribute__ ((unused))) +_gfortran_caf_this_image (caf_team_t team) { - return 1; + return team ? ((caf_single_team_t) team)->index : 1; } - int -_gfortran_caf_num_images (int distance __attribute__ ((unused)), - int failed __attribute__ ((unused))) +_gfortran_caf_num_images (caf_team_t team __attribute__ ((unused)), + int32_t *team_number __attribute__ ((unused))) { return 1; } @@ -182,6 +227,8 @@ _gfortran_caf_register (size_t size, caf_register_t type, caf_token_t *token, local = calloc (size, sizeof (uint32_t)); else if (type == CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY) local = NULL; + else if (type == CAF_REGTYPE_COARRAY_MAP_EXISTING) + local = GFC_DESCRIPTOR_DATA (data); else local = malloc (size); @@ -203,9 +250,12 @@ _gfortran_caf_register (size_t size, caf_register_t type, caf_token_t *token, single_token = TOKEN (*token); single_token->memptr = local; - single_token->owning_memory = type != CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY; + single_token->owning_memory = type != CAF_REGTYPE_COARRAY_ALLOC_REGISTER_ONLY + && type != CAF_REGTYPE_COARRAY_MAP_EXISTING; single_token->desc = GFC_DESCRIPTOR_RANK (data) > 0 ? data : NULL; + if (unlikely (!caf_team_stack)) + init_caf_team_stack (); if (stat) *stat = 0; @@ -219,6 +269,20 @@ _gfortran_caf_register (size_t size, caf_register_t type, caf_token_t *token, tmp->token = *token; caf_static_list = tmp; } + else + { + struct coarray_allocated *ca = caf_team_stack->allocated; + for (; ca && ca->token != single_token; ca = ca->next) + ; + if (!ca) + { + ca = (struct coarray_allocated *) malloc ( + sizeof (struct coarray_allocated)); + *ca = (struct coarray_allocated) {caf_team_stack->allocated, + single_token}; + caf_team_stack->allocated = ca; + } + } GFC_DESCRIPTOR_DATA (data) = local; } @@ -231,10 +295,30 @@ _gfortran_caf_deregister (caf_token_t *token, caf_deregister_t type, int *stat, caf_single_token_t single_token = TOKEN (*token); if (single_token->owning_memory && single_token->memptr) - free (single_token->memptr); + { + free (single_token->memptr); + if (single_token->desc) + GFC_DESCRIPTOR_DATA (single_token->desc) = NULL; + } if (type != CAF_DEREGTYPE_COARRAY_DEALLOCATE_ONLY) { + struct coarray_allocated *ca = caf_team_stack->allocated; + if (ca && caf_team_stack->allocated->token == single_token) + caf_team_stack->allocated = ca->next; + else + { + struct coarray_allocated *pca = NULL; + for (; ca && ca->token != single_token; pca = ca, ca = ca->next) + ; + if (!ca) + caf_runtime_error ( + "Coarray token to be freeed is not in current team %d", type); + /* Unhook found coarray_allocated node from list... */ + pca->next = ca->next; + } + /* ... and free. */ + free (ca); free (TOKEN (*token)); *token = NULL; } @@ -539,6 +623,37 @@ _gfortran_caf_get_remote_function_index (const int hash) return index; } +static bool +check_team (caf_team_t *team, int *team_number, int *stat) +{ + if (team || team_number) + { + caf_single_team_t cur = caf_team_stack; + + if (team) + { + caf_single_team_t single_team = (caf_single_team_t) (*team); + while (cur && cur != single_team) + cur = cur->parent; + } + else + while (cur && cur->team_no != *team_number) + cur = cur->parent; + + if (!cur) + { + if (stat) + { + *stat = 1; + return false; + } + else + caf_runtime_error ("requested team not found"); + } + } + return true; +} + void _gfortran_caf_get_from_remote ( caf_token_t token, const gfc_descriptor_t *opt_src_desc, @@ -547,8 +662,7 @@ _gfortran_caf_get_from_remote ( size_t *opt_dst_charlen, gfc_descriptor_t *opt_dst_desc, const bool may_realloc_dst, const int getter_index, void *add_data, const size_t add_data_size __attribute__ ((unused)), int *stat, - caf_team_t *team __attribute__ ((unused)), - int *team_number __attribute__ ((unused))) + caf_team_t *team, int *team_number) { caf_single_token_t single_token = TOKEN (token); void *src_ptr = opt_src_desc ? (void *) opt_src_desc : single_token->memptr; @@ -563,6 +677,9 @@ _gfortran_caf_get_from_remote ( if (stat) *stat = 0; + if (!check_team (team, team_number, stat)) + return; + if (opt_dst_desc && !may_realloc_dst) { old_dst_data_ptr = opt_dst_desc->base_addr; @@ -599,11 +716,10 @@ _gfortran_caf_is_present_on_remote (caf_token_t token, const int image_index, int32_t result; struct caf_single_token cb_token = {add_data, NULL, false}; - - accessor_hash_table[present_index].u.is_present (add_data, &image_index, - &result, - single_token->memptr, - &cb_token, 0); + accessor_hash_table[present_index].u.is_present ( + add_data, &image_index, &result, + single_token->desc ? single_token->desc : (void *) &single_token->memptr, + &cb_token, 0); return result; } @@ -616,8 +732,7 @@ _gfortran_caf_send_to_remote ( const size_t *opt_src_charlen, const gfc_descriptor_t *opt_src_desc, const int accessor_index, void *add_data, const size_t add_data_size __attribute__ ((unused)), int *stat, - caf_team_t *team __attribute__ ((unused)), - int *team_number __attribute__ ((unused))) + caf_team_t *team, int *team_number) { caf_single_token_t single_token = TOKEN (token); void *dst_ptr = opt_dst_desc ? (void *) opt_dst_desc : single_token->memptr; @@ -630,6 +745,9 @@ _gfortran_caf_send_to_remote ( if (stat) *stat = 0; + if (!check_team (team, team_number, stat)) + return; + accessor_hash_table[accessor_index].u.receiver (add_data, &image_index, dst_ptr, src_ptr, &cb_token, 0, opt_dst_charlen, @@ -647,10 +765,8 @@ _gfortran_caf_transfer_between_remotes ( const int src_access_index, void *src_add_data, const size_t src_add_data_size __attribute__ ((unused)), const size_t src_size, const bool scalar_transfer, int *dst_stat, - int *src_stat, caf_team_t *dst_team __attribute__ ((unused)), - int *dst_team_number __attribute__ ((unused)), - caf_team_t *src_team __attribute__ ((unused)), - int *src_team_number __attribute__ ((unused))) + int *src_stat, caf_team_t *dst_team, int *dst_team_number, + caf_team_t *src_team, int *src_team_number) { caf_single_token_t src_single_token = TOKEN (src_token), dst_single_token = TOKEN (dst_token); @@ -669,6 +785,9 @@ _gfortran_caf_transfer_between_remotes ( if (src_stat) *src_stat = 0; + if (!check_team (src_team, src_team_number, src_stat)) + return; + if (!scalar_transfer) { const size_t desc_size = sizeof (*transfer_desc); @@ -691,6 +810,9 @@ _gfortran_caf_transfer_between_remotes ( if (dst_stat) *dst_stat = 0; + if (!check_team (dst_team, dst_team_number, dst_stat)) + return; + if (scalar_transfer) transfer_ptr = *(void **) transfer_ptr; @@ -859,14 +981,14 @@ _gfortran_caf_lock (caf_token_t token, size_t index, { *acquired_lock = (int) false; if (stat) - *stat = 0; - return; + *stat = GFC_STAT_LOCKED; + return; } if (stat) { - *stat = 1; + *stat = GFC_STAT_LOCKED; if (errmsg_len > 0) { size_t len = (sizeof (msg) > errmsg_len) ? errmsg_len @@ -899,7 +1021,7 @@ _gfortran_caf_unlock (caf_token_t token, size_t index, if (stat) { - *stat = 1; + *stat = GFC_STAT_UNLOCKED; if (errmsg_len > 0) { size_t len = (sizeof (msg) > errmsg_len) ? errmsg_len @@ -923,3 +1045,109 @@ void _gfortran_caf_random_init (bool repeatable, bool image_distinct) routine. */ _gfortran_random_init (repeatable, image_distinct, 1); } + +void +_gfortran_caf_form_team (int team_no, caf_team_t *team, int *new_index, + int *stat, char *errmsg __attribute__ ((unused)), + size_t errmsg_len __attribute__ ((unused))) +{ + const char alloc_fail_msg[] = "Failed to allocate team"; + caf_single_team_t t; + if (stat) + *stat = 0; + + *team = malloc (sizeof (struct caf_single_team)); + if (unlikely (*team == NULL)) + { + caf_internal_error (alloc_fail_msg, stat, errmsg, errmsg_len); + return; + } + t = *((caf_single_team_t *) team); + t->parent = caf_teams_formed; + t->team_no = team_no; + t->index = new_index ? *new_index : 1; + t->allocated = NULL; + caf_teams_formed = t; +} + +void +_gfortran_caf_change_team (caf_team_t team, int *stat, + char *errmsg __attribute__ ((unused)), + size_t errmsg_len __attribute__ ((unused))) +{ + caf_single_team_t t = (caf_single_team_t) team; + + if (stat) + *stat = 0; + + if (t == caf_teams_formed) + caf_teams_formed = t->parent; + else + for (caf_single_team_t p = caf_teams_formed; p; p = p->parent) + if (p->parent == t) + { + p->parent = t->parent; + break; + } + + t->parent = caf_team_stack; + caf_team_stack = t; +} + +void +_gfortran_caf_end_team (int *stat, char *errmsg, size_t errmsg_len) +{ + caf_single_team_t t = caf_team_stack; + + if (stat) + *stat = 0; + + caf_team_stack = caf_team_stack->parent; + for (struct coarray_allocated *ca = t->allocated; ca;) + { + struct coarray_allocated *nca = ca->next; + _gfortran_caf_deregister ((caf_token_t *) &ca->token, + CAF_DEREGTYPE_COARRAY_DEALLOCATE_ONLY, stat, + errmsg, errmsg_len); + free (ca); + ca = nca; + } + t->allocated = NULL; + t->parent = caf_teams_formed; + caf_teams_formed = t; +} + +void +_gfortran_caf_sync_team (caf_team_t team __attribute__ ((unused)), int *stat, + char *errmsg __attribute__ ((unused)), + size_t errmsg_len __attribute__ ((unused))) +{ + if (stat) + *stat = 0; +} + +int +_gfortran_caf_team_number (caf_team_t team) +{ + return ((caf_single_team_t) team)->team_no; +} + +caf_team_t +_gfortran_caf_get_team (int32_t *level) +{ + if (!level) + return caf_team_stack; + + switch ((caf_team_level_t) *level) + { + case CAF_INITIAL_TEAM: + return caf_initial_team; + case CAF_PARENT_TEAM: + return caf_team_stack->parent ? caf_team_stack->parent : caf_team_stack; + case CAF_CURRENT_TEAM: + return caf_team_stack; + default: + caf_runtime_error ("Illegal value for GET_TEAM"); + } + return NULL; /* To prevent any warnings. */ +} diff --git a/libgfortran/configure b/libgfortran/configure index 11a1bc5..9898a94 100755 --- a/libgfortran/configure +++ b/libgfortran/configure @@ -30283,6 +30283,10 @@ else cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ + #ifdef __loongarch__ + #error On LoongArch we should use long double instead; __float128 is only for porting existing code easier. + #endif + _Float128 foo (_Float128 x) { _Complex _Float128 z1, z2; @@ -30336,6 +30340,10 @@ fi cat confdefs.h - <<_ACEOF >conftest.$ac_ext /* end confdefs.h. */ + #ifdef __loongarch__ + #error On LoongArch we should use long double instead; __float128 is only for porting existing code easier. + #endif + _Float128 foo (_Float128 x) { _Complex _Float128 z1, z2; diff --git a/libgfortran/generated/findloc2_s1.c b/libgfortran/generated/findloc2_s1.c index 0dcfcc5..eeea821 100644 --- a/libgfortran/generated/findloc2_s1.c +++ b/libgfortran/generated/findloc2_s1.c @@ -49,7 +49,7 @@ findloc2_s1 (gfc_array_s1 * const restrict array, const GFC_UINTEGER_1 * restric if (back) { src = array->base_addr + (extent - 1) * sstride; - for (i = extent; i >= 0; i--) + for (i = extent; i > 0; i--) { if (compare_string (len_array, (char *) src, len_value, (char *) value) == 0) return i; @@ -112,7 +112,7 @@ mfindloc2_s1 (gfc_array_s1 * const restrict array, { src = array->base_addr + (extent - 1) * sstride; mbase += (extent - 1) * mstride; - for (i = extent; i >= 0; i--) + for (i = extent; i > 0; i--) { if (*mbase && (compare_string (len_array, (char *) src, len_value, (char *) value) == 0)) return i; diff --git a/libgfortran/generated/findloc2_s4.c b/libgfortran/generated/findloc2_s4.c index 3ac0d00..a336e34 100644 --- a/libgfortran/generated/findloc2_s4.c +++ b/libgfortran/generated/findloc2_s4.c @@ -49,7 +49,7 @@ findloc2_s4 (gfc_array_s4 * const restrict array, const GFC_UINTEGER_4 * restric if (back) { src = array->base_addr + (extent - 1) * sstride; - for (i = extent; i >= 0; i--) + for (i = extent; i > 0; i--) { if (compare_string_char4 (len_array, src, len_value, value) == 0) return i; @@ -112,7 +112,7 @@ mfindloc2_s4 (gfc_array_s4 * const restrict array, { src = array->base_addr + (extent - 1) * sstride; mbase += (extent - 1) * mstride; - for (i = extent; i >= 0; i--) + for (i = extent; i > 0; i--) { if (*mbase && (compare_string_char4 (len_array, src, len_value, value) == 0)) return i; diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c index d82d8ba..2e322c1 100644 --- a/libgfortran/generated/iall_i1.c +++ b/libgfortran/generated/iall_i1.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1) -extern void iall_i1 (gfc_array_i1 * const restrict, +extern void iall_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict); export_proto(iall_i1); void -iall_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, +iall_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iall_i1 (gfc_array_i1 * const restrict retarray, } -extern void miall_i1 (gfc_array_i1 * const restrict, +extern void miall_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miall_i1); void -miall_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +miall_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miall_i1 (gfc_array_i1 * const restrict retarray, } -extern void siall_i1 (gfc_array_i1 * const restrict, +extern void siall_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siall_i1); void -siall_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +siall_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c index ee13452..c70b698 100644 --- a/libgfortran/generated/iall_i16.c +++ b/libgfortran/generated/iall_i16.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) -extern void iall_i16 (gfc_array_i16 * const restrict, +extern void iall_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict); export_proto(iall_i16); void -iall_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, +iall_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iall_i16 (gfc_array_i16 * const restrict retarray, } -extern void miall_i16 (gfc_array_i16 * const restrict, +extern void miall_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miall_i16); void -miall_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +miall_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miall_i16 (gfc_array_i16 * const restrict retarray, } -extern void siall_i16 (gfc_array_i16 * const restrict, +extern void siall_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siall_i16); void -siall_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +siall_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c index a57aabd..bede3c3 100644 --- a/libgfortran/generated/iall_i2.c +++ b/libgfortran/generated/iall_i2.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2) -extern void iall_i2 (gfc_array_i2 * const restrict, +extern void iall_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict); export_proto(iall_i2); void -iall_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, +iall_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iall_i2 (gfc_array_i2 * const restrict retarray, } -extern void miall_i2 (gfc_array_i2 * const restrict, +extern void miall_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miall_i2); void -miall_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +miall_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miall_i2 (gfc_array_i2 * const restrict retarray, } -extern void siall_i2 (gfc_array_i2 * const restrict, +extern void siall_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siall_i2); void -siall_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +siall_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c index 039256d..3e4370b 100644 --- a/libgfortran/generated/iall_i4.c +++ b/libgfortran/generated/iall_i4.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4) -extern void iall_i4 (gfc_array_i4 * const restrict, +extern void iall_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict); export_proto(iall_i4); void -iall_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, +iall_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iall_i4 (gfc_array_i4 * const restrict retarray, } -extern void miall_i4 (gfc_array_i4 * const restrict, +extern void miall_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miall_i4); void -miall_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +miall_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miall_i4 (gfc_array_i4 * const restrict retarray, } -extern void siall_i4 (gfc_array_i4 * const restrict, +extern void siall_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siall_i4); void -siall_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +siall_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c index 9f41e60..1651a47 100644 --- a/libgfortran/generated/iall_i8.c +++ b/libgfortran/generated/iall_i8.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8) -extern void iall_i8 (gfc_array_i8 * const restrict, +extern void iall_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict); export_proto(iall_i8); void -iall_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, +iall_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iall_i8 (gfc_array_i8 * const restrict retarray, } -extern void miall_i8 (gfc_array_i8 * const restrict, +extern void miall_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miall_i8); void -miall_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +miall_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miall_i8 (gfc_array_i8 * const restrict retarray, } -extern void siall_i8 (gfc_array_i8 * const restrict, +extern void siall_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siall_i8); void -siall_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +siall_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c index ebe21e4..a9b24f2 100644 --- a/libgfortran/generated/iany_i1.c +++ b/libgfortran/generated/iany_i1.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1) -extern void iany_i1 (gfc_array_i1 * const restrict, +extern void iany_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict); export_proto(iany_i1); void -iany_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, +iany_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iany_i1 (gfc_array_i1 * const restrict retarray, } -extern void miany_i1 (gfc_array_i1 * const restrict, +extern void miany_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miany_i1); void -miany_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +miany_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miany_i1 (gfc_array_i1 * const restrict retarray, } -extern void siany_i1 (gfc_array_i1 * const restrict, +extern void siany_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siany_i1); void -siany_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +siany_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c index 8cbb439..34d0954 100644 --- a/libgfortran/generated/iany_i16.c +++ b/libgfortran/generated/iany_i16.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) -extern void iany_i16 (gfc_array_i16 * const restrict, +extern void iany_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict); export_proto(iany_i16); void -iany_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, +iany_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iany_i16 (gfc_array_i16 * const restrict retarray, } -extern void miany_i16 (gfc_array_i16 * const restrict, +extern void miany_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miany_i16); void -miany_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +miany_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miany_i16 (gfc_array_i16 * const restrict retarray, } -extern void siany_i16 (gfc_array_i16 * const restrict, +extern void siany_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siany_i16); void -siany_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +siany_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c index 01f6f6c..554a024 100644 --- a/libgfortran/generated/iany_i2.c +++ b/libgfortran/generated/iany_i2.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2) -extern void iany_i2 (gfc_array_i2 * const restrict, +extern void iany_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict); export_proto(iany_i2); void -iany_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, +iany_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iany_i2 (gfc_array_i2 * const restrict retarray, } -extern void miany_i2 (gfc_array_i2 * const restrict, +extern void miany_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miany_i2); void -miany_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +miany_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miany_i2 (gfc_array_i2 * const restrict retarray, } -extern void siany_i2 (gfc_array_i2 * const restrict, +extern void siany_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siany_i2); void -siany_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +siany_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c index 7bc70d1..d4c824f 100644 --- a/libgfortran/generated/iany_i4.c +++ b/libgfortran/generated/iany_i4.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4) -extern void iany_i4 (gfc_array_i4 * const restrict, +extern void iany_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict); export_proto(iany_i4); void -iany_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, +iany_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iany_i4 (gfc_array_i4 * const restrict retarray, } -extern void miany_i4 (gfc_array_i4 * const restrict, +extern void miany_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miany_i4); void -miany_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +miany_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miany_i4 (gfc_array_i4 * const restrict retarray, } -extern void siany_i4 (gfc_array_i4 * const restrict, +extern void siany_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siany_i4); void -siany_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +siany_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c index 4165061..cebeec2 100644 --- a/libgfortran/generated/iany_i8.c +++ b/libgfortran/generated/iany_i8.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8) -extern void iany_i8 (gfc_array_i8 * const restrict, +extern void iany_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict); export_proto(iany_i8); void -iany_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, +iany_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iany_i8 (gfc_array_i8 * const restrict retarray, } -extern void miany_i8 (gfc_array_i8 * const restrict, +extern void miany_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miany_i8); void -miany_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +miany_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miany_i8 (gfc_array_i8 * const restrict retarray, } -extern void siany_i8 (gfc_array_i8 * const restrict, +extern void siany_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siany_i8); void -siany_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +siany_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c index f3ec328..b7cdb3e 100644 --- a/libgfortran/generated/iparity_i1.c +++ b/libgfortran/generated/iparity_i1.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1) -extern void iparity_i1 (gfc_array_i1 * const restrict, +extern void iparity_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict); export_proto(iparity_i1); void -iparity_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, +iparity_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iparity_i1 (gfc_array_i1 * const restrict retarray, } -extern void miparity_i1 (gfc_array_i1 * const restrict, +extern void miparity_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miparity_i1); void -miparity_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +miparity_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miparity_i1 (gfc_array_i1 * const restrict retarray, } -extern void siparity_i1 (gfc_array_i1 * const restrict, +extern void siparity_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siparity_i1); void -siparity_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +siparity_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c index 1111bbc..f627263 100644 --- a/libgfortran/generated/iparity_i16.c +++ b/libgfortran/generated/iparity_i16.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) -extern void iparity_i16 (gfc_array_i16 * const restrict, +extern void iparity_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict); export_proto(iparity_i16); void -iparity_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, +iparity_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iparity_i16 (gfc_array_i16 * const restrict retarray, } -extern void miparity_i16 (gfc_array_i16 * const restrict, +extern void miparity_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miparity_i16); void -miparity_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +miparity_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miparity_i16 (gfc_array_i16 * const restrict retarray, } -extern void siparity_i16 (gfc_array_i16 * const restrict, +extern void siparity_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siparity_i16); void -siparity_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +siparity_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c index ef0a9e7..4481a04 100644 --- a/libgfortran/generated/iparity_i2.c +++ b/libgfortran/generated/iparity_i2.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2) -extern void iparity_i2 (gfc_array_i2 * const restrict, +extern void iparity_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict); export_proto(iparity_i2); void -iparity_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, +iparity_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iparity_i2 (gfc_array_i2 * const restrict retarray, } -extern void miparity_i2 (gfc_array_i2 * const restrict, +extern void miparity_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miparity_i2); void -miparity_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +miparity_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miparity_i2 (gfc_array_i2 * const restrict retarray, } -extern void siparity_i2 (gfc_array_i2 * const restrict, +extern void siparity_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siparity_i2); void -siparity_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +siparity_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c index 189d820..e0c65dd 100644 --- a/libgfortran/generated/iparity_i4.c +++ b/libgfortran/generated/iparity_i4.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4) -extern void iparity_i4 (gfc_array_i4 * const restrict, +extern void iparity_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict); export_proto(iparity_i4); void -iparity_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, +iparity_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iparity_i4 (gfc_array_i4 * const restrict retarray, } -extern void miparity_i4 (gfc_array_i4 * const restrict, +extern void miparity_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miparity_i4); void -miparity_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +miparity_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miparity_i4 (gfc_array_i4 * const restrict retarray, } -extern void siparity_i4 (gfc_array_i4 * const restrict, +extern void siparity_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siparity_i4); void -siparity_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +siparity_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c index 1d2f33b..f2feec9 100644 --- a/libgfortran/generated/iparity_i8.c +++ b/libgfortran/generated/iparity_i8.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8) -extern void iparity_i8 (gfc_array_i8 * const restrict, +extern void iparity_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict); export_proto(iparity_i8); void -iparity_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, +iparity_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -188,15 +188,15 @@ iparity_i8 (gfc_array_i8 * const restrict retarray, } -extern void miparity_i8 (gfc_array_i8 * const restrict, +extern void miparity_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(miparity_i8); void -miparity_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +miparity_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -378,15 +378,15 @@ miparity_i8 (gfc_array_i8 * const restrict retarray, } -extern void siparity_i8 (gfc_array_i8 * const restrict, +extern void siparity_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(siparity_i8); void -siparity_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +siparity_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/matmulavx128_c10.c b/libgfortran/generated/matmulavx128_c10.c index 7094a5f..6e08480 100644 --- a/libgfortran/generated/matmulavx128_c10.c +++ b/libgfortran/generated/matmulavx128_c10.c @@ -49,7 +49,7 @@ matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_c10_avx128_fma3); void -matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray, +matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray, gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_c10_avx128_fma4); void -matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray, +matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray, gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_c16.c b/libgfortran/generated/matmulavx128_c16.c index 4a1a340..57d24ec 100644 --- a/libgfortran/generated/matmulavx128_c16.c +++ b/libgfortran/generated/matmulavx128_c16.c @@ -49,7 +49,7 @@ matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_c16_avx128_fma3); void -matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray, +matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray, gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_c16_avx128_fma4); void -matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray, +matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray, gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_c17.c b/libgfortran/generated/matmulavx128_c17.c index 52b3c0d..7d54c0d 100644 --- a/libgfortran/generated/matmulavx128_c17.c +++ b/libgfortran/generated/matmulavx128_c17.c @@ -49,7 +49,7 @@ matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_c17_avx128_fma3); void -matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray, +matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray, gfc_array_c17 * const restrict a, gfc_array_c17 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_c17_avx128_fma4); void -matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray, +matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray, gfc_array_c17 * const restrict a, gfc_array_c17 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_c4.c b/libgfortran/generated/matmulavx128_c4.c index f0014cc..a7708c5 100644 --- a/libgfortran/generated/matmulavx128_c4.c +++ b/libgfortran/generated/matmulavx128_c4.c @@ -49,7 +49,7 @@ matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_c4_avx128_fma3); void -matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray, +matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray, gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_c4_avx128_fma4); void -matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray, +matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray, gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_c8.c b/libgfortran/generated/matmulavx128_c8.c index 94764a9..b0d325f 100644 --- a/libgfortran/generated/matmulavx128_c8.c +++ b/libgfortran/generated/matmulavx128_c8.c @@ -49,7 +49,7 @@ matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_c8_avx128_fma3); void -matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray, +matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray, gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_c8_avx128_fma4); void -matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray, +matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray, gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_i1.c b/libgfortran/generated/matmulavx128_i1.c index 3ab8eda..f5e5bef 100644 --- a/libgfortran/generated/matmulavx128_i1.c +++ b/libgfortran/generated/matmulavx128_i1.c @@ -49,7 +49,7 @@ matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_i1_avx128_fma3); void -matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray, +matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray, gfc_array_i1 * const restrict a, gfc_array_i1 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_i1_avx128_fma4); void -matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray, +matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray, gfc_array_i1 * const restrict a, gfc_array_i1 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_i16.c b/libgfortran/generated/matmulavx128_i16.c index c8ef87e..f686f7a 100644 --- a/libgfortran/generated/matmulavx128_i16.c +++ b/libgfortran/generated/matmulavx128_i16.c @@ -49,7 +49,7 @@ matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_i16_avx128_fma3); void -matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray, +matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray, gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_i16_avx128_fma4); void -matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray, +matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray, gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_i2.c b/libgfortran/generated/matmulavx128_i2.c index 88f3452..f6a162d 100644 --- a/libgfortran/generated/matmulavx128_i2.c +++ b/libgfortran/generated/matmulavx128_i2.c @@ -49,7 +49,7 @@ matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_i2_avx128_fma3); void -matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray, +matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray, gfc_array_i2 * const restrict a, gfc_array_i2 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_i2_avx128_fma4); void -matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray, +matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray, gfc_array_i2 * const restrict a, gfc_array_i2 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_i4.c b/libgfortran/generated/matmulavx128_i4.c index 272692e..0a28e4b 100644 --- a/libgfortran/generated/matmulavx128_i4.c +++ b/libgfortran/generated/matmulavx128_i4.c @@ -49,7 +49,7 @@ matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_i4_avx128_fma3); void -matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray, +matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray, gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_i4_avx128_fma4); void -matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray, +matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray, gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_i8.c b/libgfortran/generated/matmulavx128_i8.c index a1db25b..a077a26 100644 --- a/libgfortran/generated/matmulavx128_i8.c +++ b/libgfortran/generated/matmulavx128_i8.c @@ -49,7 +49,7 @@ matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_i8_avx128_fma3); void -matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray, +matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray, gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_i8_avx128_fma4); void -matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray, +matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray, gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_r10.c b/libgfortran/generated/matmulavx128_r10.c index 8d164d0..31c62ba 100644 --- a/libgfortran/generated/matmulavx128_r10.c +++ b/libgfortran/generated/matmulavx128_r10.c @@ -49,7 +49,7 @@ matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_r10_avx128_fma3); void -matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray, +matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray, gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_r10_avx128_fma4); void -matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray, +matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray, gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_r16.c b/libgfortran/generated/matmulavx128_r16.c index ee536b5..1ed5516 100644 --- a/libgfortran/generated/matmulavx128_r16.c +++ b/libgfortran/generated/matmulavx128_r16.c @@ -49,7 +49,7 @@ matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_r16_avx128_fma3); void -matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray, +matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray, gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_r16_avx128_fma4); void -matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray, +matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray, gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_r17.c b/libgfortran/generated/matmulavx128_r17.c index b45f3b3..f1e5852 100644 --- a/libgfortran/generated/matmulavx128_r17.c +++ b/libgfortran/generated/matmulavx128_r17.c @@ -49,7 +49,7 @@ matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_r17_avx128_fma3); void -matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray, +matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray, gfc_array_r17 * const restrict a, gfc_array_r17 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_r17_avx128_fma4); void -matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray, +matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray, gfc_array_r17 * const restrict a, gfc_array_r17 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_r4.c b/libgfortran/generated/matmulavx128_r4.c index 104b1df..5372623 100644 --- a/libgfortran/generated/matmulavx128_r4.c +++ b/libgfortran/generated/matmulavx128_r4.c @@ -49,7 +49,7 @@ matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_r4_avx128_fma3); void -matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray, +matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray, gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_r4_avx128_fma4); void -matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray, +matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray, gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/matmulavx128_r8.c b/libgfortran/generated/matmulavx128_r8.c index f76301d..ee7bc4a 100644 --- a/libgfortran/generated/matmulavx128_r8.c +++ b/libgfortran/generated/matmulavx128_r8.c @@ -49,7 +49,7 @@ matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma"))); internal_proto(matmul_r8_avx128_fma3); void -matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray, +matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray, gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { @@ -619,7 +619,7 @@ matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray, int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4"))); internal_proto(matmul_r8_avx128_fma4); void -matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray, +matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray, gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b, int try_blas, int blas_limit, blas_call gemm) { diff --git a/libgfortran/generated/maxloc0_16_m1.c b/libgfortran/generated/maxloc0_16_m1.c index d13ebbf..2a47b9e 100644 --- a/libgfortran/generated/maxloc0_16_m1.c +++ b/libgfortran/generated/maxloc0_16_m1.c @@ -96,7 +96,7 @@ maxloc0_16_m1 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m1 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_16_m16.c b/libgfortran/generated/maxloc0_16_m16.c index 00cb09b..1003fdb 100644 --- a/libgfortran/generated/maxloc0_16_m16.c +++ b/libgfortran/generated/maxloc0_16_m16.c @@ -96,7 +96,7 @@ maxloc0_16_m16 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m16 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_16_m2.c b/libgfortran/generated/maxloc0_16_m2.c index 3244952..49b92f7 100644 --- a/libgfortran/generated/maxloc0_16_m2.c +++ b/libgfortran/generated/maxloc0_16_m2.c @@ -96,7 +96,7 @@ maxloc0_16_m2 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m2 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_16_m4.c b/libgfortran/generated/maxloc0_16_m4.c index 3cda598d..0144125 100644 --- a/libgfortran/generated/maxloc0_16_m4.c +++ b/libgfortran/generated/maxloc0_16_m4.c @@ -96,7 +96,7 @@ maxloc0_16_m4 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m4 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_16_m8.c b/libgfortran/generated/maxloc0_16_m8.c index f98485d..96d6295 100644 --- a/libgfortran/generated/maxloc0_16_m8.c +++ b/libgfortran/generated/maxloc0_16_m8.c @@ -96,7 +96,7 @@ maxloc0_16_m8 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_16_m8 (gfc_array_i16 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m1.c b/libgfortran/generated/maxloc0_4_m1.c index 7ae89c1..7825952 100644 --- a/libgfortran/generated/maxloc0_4_m1.c +++ b/libgfortran/generated/maxloc0_4_m1.c @@ -96,7 +96,7 @@ maxloc0_4_m1 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m1 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m16.c b/libgfortran/generated/maxloc0_4_m16.c index 8d62e04..4e90c49 100644 --- a/libgfortran/generated/maxloc0_4_m16.c +++ b/libgfortran/generated/maxloc0_4_m16.c @@ -96,7 +96,7 @@ maxloc0_4_m16 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m16 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m2.c b/libgfortran/generated/maxloc0_4_m2.c index c8cf68b..b6b530b 100644 --- a/libgfortran/generated/maxloc0_4_m2.c +++ b/libgfortran/generated/maxloc0_4_m2.c @@ -96,7 +96,7 @@ maxloc0_4_m2 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m2 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m4.c b/libgfortran/generated/maxloc0_4_m4.c index 3f5f550..b3ee5af 100644 --- a/libgfortran/generated/maxloc0_4_m4.c +++ b/libgfortran/generated/maxloc0_4_m4.c @@ -96,7 +96,7 @@ maxloc0_4_m4 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m4 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_4_m8.c b/libgfortran/generated/maxloc0_4_m8.c index d4c30f8..4f7ec05 100644 --- a/libgfortran/generated/maxloc0_4_m8.c +++ b/libgfortran/generated/maxloc0_4_m8.c @@ -96,7 +96,7 @@ maxloc0_4_m8 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_4_m8 (gfc_array_i4 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m1.c b/libgfortran/generated/maxloc0_8_m1.c index af97213..2b4b0e7 100644 --- a/libgfortran/generated/maxloc0_8_m1.c +++ b/libgfortran/generated/maxloc0_8_m1.c @@ -96,7 +96,7 @@ maxloc0_8_m1 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m1 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m16.c b/libgfortran/generated/maxloc0_8_m16.c index e2d47b6..da03132 100644 --- a/libgfortran/generated/maxloc0_8_m16.c +++ b/libgfortran/generated/maxloc0_8_m16.c @@ -96,7 +96,7 @@ maxloc0_8_m16 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m16 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m2.c b/libgfortran/generated/maxloc0_8_m2.c index 390fc8f..0c7b74c 100644 --- a/libgfortran/generated/maxloc0_8_m2.c +++ b/libgfortran/generated/maxloc0_8_m2.c @@ -96,7 +96,7 @@ maxloc0_8_m2 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m2 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m4.c b/libgfortran/generated/maxloc0_8_m4.c index 05dda2c..307a04b 100644 --- a/libgfortran/generated/maxloc0_8_m4.c +++ b/libgfortran/generated/maxloc0_8_m4.c @@ -96,7 +96,7 @@ maxloc0_8_m4 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m4 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc0_8_m8.c b/libgfortran/generated/maxloc0_8_m8.c index 48875e7..5160418 100644 --- a/libgfortran/generated/maxloc0_8_m8.c +++ b/libgfortran/generated/maxloc0_8_m8.c @@ -96,7 +96,7 @@ maxloc0_8_m8 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { @@ -271,7 +271,7 @@ mmaxloc0_8_m8 (gfc_array_i8 * const restrict retarray, #if defined(GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif while (base) { diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c index 853fe3f..31e17c4 100644 --- a/libgfortran/generated/maxloc1_16_i1.c +++ b/libgfortran/generated/maxloc1_16_i1.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_i1 (gfc_array_i16 * const restrict, +extern void maxloc1_16_i1 (gfc_array_i16 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_i1); void -maxloc1_16_i1 (gfc_array_i16 * const restrict retarray, - gfc_array_i1 * const restrict array, +maxloc1_16_i1 (gfc_array_i16 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_i1 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_i1 (gfc_array_i16 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_i1); void -mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_i1 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_i1 (gfc_array_i16 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_i1); void -smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c index 96f76ac..227ab99 100644 --- a/libgfortran/generated/maxloc1_16_i16.c +++ b/libgfortran/generated/maxloc1_16_i16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_i16 (gfc_array_i16 * const restrict, +extern void maxloc1_16_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_i16); void -maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, +maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_i16); void -mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_i16 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_i16); void -smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c index a286151..40fbf8b 100644 --- a/libgfortran/generated/maxloc1_16_i2.c +++ b/libgfortran/generated/maxloc1_16_i2.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_i2 (gfc_array_i16 * const restrict, +extern void maxloc1_16_i2 (gfc_array_i16 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_i2); void -maxloc1_16_i2 (gfc_array_i16 * const restrict retarray, - gfc_array_i2 * const restrict array, +maxloc1_16_i2 (gfc_array_i16 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_i2 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_i2 (gfc_array_i16 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_i2); void -mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_i2 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_i2 (gfc_array_i16 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_i2); void -smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c index ad9de40..28f1f4f 100644 --- a/libgfortran/generated/maxloc1_16_i4.c +++ b/libgfortran/generated/maxloc1_16_i4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_i4 (gfc_array_i16 * const restrict, +extern void maxloc1_16_i4 (gfc_array_i16 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_i4); void -maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, - gfc_array_i4 * const restrict array, +maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_i4); void -mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_i4 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_i4 (gfc_array_i16 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_i4); void -smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c index 6439eed..ee97c1a 100644 --- a/libgfortran/generated/maxloc1_16_i8.c +++ b/libgfortran/generated/maxloc1_16_i8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_i8 (gfc_array_i16 * const restrict, +extern void maxloc1_16_i8 (gfc_array_i16 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_i8); void -maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, +maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_i8); void -mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_i8 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_i8 (gfc_array_i16 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_i8); void -smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_m1.c b/libgfortran/generated/maxloc1_16_m1.c index 14961da..4d78e75 100644 --- a/libgfortran/generated/maxloc1_16_m1.c +++ b/libgfortran/generated/maxloc1_16_m1.c @@ -147,7 +147,7 @@ maxloc1_16_m1 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m1 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_1_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_16_m16.c b/libgfortran/generated/maxloc1_16_m16.c new file mode 100644 index 0000000..e6f1ae3 --- /dev/null +++ b/libgfortran/generated/maxloc1_16_m16.c @@ -0,0 +1,591 @@ +/* Implementation of the MAXLOC intrinsic + Copyright (C) 2002-2025 Free Software Foundation, Inc. + Contributed by Paul Brook <paul@nowt.org> + +This file is part of the GNU Fortran runtime library (libgfortran). + +Libgfortran is free software; you can redistribute it and/or +modify it under the terms of the GNU General Public +License as published by the Free Software Foundation; either +version 3 of the License, or (at your option) any later version. + +Libgfortran is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +Under Section 7 of GPL version 3, you are granted additional +permissions described in the GCC Runtime Library Exception, version +3.1, as published by the Free Software Foundation. + +You should have received a copy of the GNU General Public License and +a copy of the GCC Runtime Library Exception along with this program; +see the files COPYING3 and COPYING.RUNTIME respectively. If not, see +<http://www.gnu.org/licenses/>. */ + +#include "libgfortran.h" +#include <assert.h> + + +#if defined (HAVE_GFC_UINTEGER_16) && defined (HAVE_GFC_INTEGER_16) + +#define HAVE_BACK_ARG 1 + + +extern void maxloc1_16_m16 (gfc_array_i16 * const restrict, + gfc_array_m16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); +export_proto(maxloc1_16_m16); + +void +maxloc1_16_m16 (gfc_array_i16 * const restrict retarray, + gfc_array_m16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 back) +{ + index_type count[GFC_MAX_DIMENSIONS]; + index_type extent[GFC_MAX_DIMENSIONS]; + index_type sstride[GFC_MAX_DIMENSIONS]; + index_type dstride[GFC_MAX_DIMENSIONS]; + const GFC_UINTEGER_16 * restrict base; + GFC_INTEGER_16 * restrict dest; + index_type rank; + index_type n; + index_type len; + index_type delta; + index_type dim; + int continue_loop; + + /* Make dim zero based to avoid confusion. */ + rank = GFC_DESCRIPTOR_RANK (array) - 1; + dim = (*pdim) - 1; + + if (unlikely (dim < 0 || dim > rank)) + { + runtime_error ("Dim argument incorrect in MAXLOC intrinsic: " + "is %ld, should be between 1 and %ld", + (long int) dim + 1, (long int) rank + 1); + } + + len = GFC_DESCRIPTOR_EXTENT(array,dim); + if (len < 0) + len = 0; + delta = GFC_DESCRIPTOR_STRIDE(array,dim); + + for (n = 0; n < dim; n++) + { + sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n); + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); + + if (extent[n] < 0) + extent[n] = 0; + } + for (n = dim; n < rank; n++) + { + sstride[n] = GFC_DESCRIPTOR_STRIDE(array, n + 1); + extent[n] = GFC_DESCRIPTOR_EXTENT(array, n + 1); + + if (extent[n] < 0) + extent[n] = 0; + } + + if (retarray->base_addr == NULL) + { + size_t alloc_size, str; + + for (n = 0; n < rank; n++) + { + if (n == 0) + str = 1; + else + str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; + + GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); + + } + + retarray->offset = 0; + retarray->dtype.rank = rank; + + alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; + + retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); + if (alloc_size == 0) + return; + } + else + { + if (rank != GFC_DESCRIPTOR_RANK (retarray)) + runtime_error ("rank of return array incorrect in" + " MAXLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); + + if (unlikely (compile_options.bounds_check)) + bounds_ifunction_return ((array_t *) retarray, extent, + "return value", "MAXLOC"); + } + + for (n = 0; n < rank; n++) + { + count[n] = 0; + dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n); + if (extent[n] <= 0) + return; + } + + base = array->base_addr; + dest = retarray->base_addr; + + continue_loop = 1; + while (continue_loop) + { + const GFC_UINTEGER_16 * restrict src; + GFC_INTEGER_16 result; + src = base; + { + + GFC_UINTEGER_16 maxval; +#if defined (GFC_UINTEGER_16_INFINITY) + maxval = -GFC_UINTEGER_16_INFINITY; +#else + maxval = 0; +#endif + result = 1; + if (len <= 0) + *dest = 0; + else + { +#if ! defined HAVE_BACK_ARG + for (n = 0; n < len; n++, src += delta) + { +#endif + +#if defined (GFC_UINTEGER_16_QUIET_NAN) + for (n = 0; n < len; n++, src += delta) + { + if (*src >= maxval) + { + maxval = *src; + result = (GFC_INTEGER_16)n + 1; + break; + } + } +#else + n = 0; +#endif + for (; n < len; n++, src += delta) + { + if (back ? *src >= maxval : *src > maxval) + { + maxval = *src; + result = (GFC_INTEGER_16)n + 1; + } + } + + *dest = result; + } + } + /* Advance to the next element. */ + count[0]++; + base += sstride[0]; + dest += dstride[0]; + n = 0; + while (count[n] == extent[n]) + { + /* When we get to the end of a dimension, reset it and increment + the next dimension. */ + count[n] = 0; + /* We could precalculate these products, but this is a less + frequently used path so probably not worth it. */ + base -= sstride[n] * extent[n]; + dest -= dstride[n] * extent[n]; + n++; + if (n >= rank) + { + /* Break out of the loop. */ + continue_loop = 0; + break; + } + else + { + count[n]++; + base += sstride[n]; + dest += dstride[n]; + } + } + } +} + + +extern void mmaxloc1_16_m16 (gfc_array_i16 * const restrict, + gfc_array_m16 * const restrict, const index_type * const restrict, + gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); +export_proto(mmaxloc1_16_m16); + +void +mmaxloc1_16_m16 (gfc_array_i16 * const restrict retarray, + gfc_array_m16 * const restrict array, + const index_type * const restrict pdim, + gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) +{ + index_type count[GFC_MAX_DIMENSIONS]; + index_type extent[GFC_MAX_DIMENSIONS]; + index_type sstride[GFC_MAX_DIMENSIONS]; + index_type dstride[GFC_MAX_DIMENSIONS]; + index_type mstride[GFC_MAX_DIMENSIONS]; + GFC_INTEGER_16 * restrict dest; + const GFC_UINTEGER_16 * restrict base; + const GFC_LOGICAL_1 * restrict mbase; + index_type rank; + index_type dim; + index_type n; + index_type len; + index_type delta; + index_type mdelta; + int mask_kind; + + if (mask == NULL) + { +#ifdef HAVE_BACK_ARG + maxloc1_16_m16 (retarray, array, pdim, back); +#else + maxloc1_16_m16 (retarray, array, pdim); +#endif + return; + } + + dim = (*pdim) - 1; + rank = GFC_DESCRIPTOR_RANK (array) - 1; + + + if (unlikely (dim < 0 || dim > rank)) + { + runtime_error ("Dim argument incorrect in MAXLOC intrinsic: " + "is %ld, should be between 1 and %ld", + (long int) dim + 1, (long int) rank + 1); + } + + len = GFC_DESCRIPTOR_EXTENT(array,dim); + if (len < 0) + len = 0; + + mbase = mask->base_addr; + + mask_kind = GFC_DESCRIPTOR_SIZE (mask); + + if (mask_kind == 1 || mask_kind == 2 || mask_kind == 4 || mask_kind == 8 +#ifdef HAVE_GFC_LOGICAL_16 + || mask_kind == 16 +#endif + ) + mbase = GFOR_POINTER_TO_L1 (mbase, mask_kind); + else + runtime_error ("Funny sized logical array"); + + delta = GFC_DESCRIPTOR_STRIDE(array,dim); + mdelta = GFC_DESCRIPTOR_STRIDE_BYTES(mask,dim); + + for (n = 0; n < dim; n++) + { + sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n); + mstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(mask,n); + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); + + if (extent[n] < 0) + extent[n] = 0; + + } + for (n = dim; n < rank; n++) + { + sstride[n] = GFC_DESCRIPTOR_STRIDE(array,n + 1); + mstride[n] = GFC_DESCRIPTOR_STRIDE_BYTES(mask, n + 1); + extent[n] = GFC_DESCRIPTOR_EXTENT(array, n + 1); + + if (extent[n] < 0) + extent[n] = 0; + } + + if (retarray->base_addr == NULL) + { + size_t alloc_size, str; + + for (n = 0; n < rank; n++) + { + if (n == 0) + str = 1; + else + str= GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; + + GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); + + } + + alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; + + retarray->offset = 0; + retarray->dtype.rank = rank; + + retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); + if (alloc_size == 0) + return; + } + else + { + if (rank != GFC_DESCRIPTOR_RANK (retarray)) + runtime_error ("rank of return array incorrect in MAXLOC intrinsic"); + + if (unlikely (compile_options.bounds_check)) + { + bounds_ifunction_return ((array_t *) retarray, extent, + "return value", "MAXLOC"); + bounds_equal_extents ((array_t *) mask, (array_t *) array, + "MASK argument", "MAXLOC"); + } + } + + for (n = 0; n < rank; n++) + { + count[n] = 0; + dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n); + if (extent[n] <= 0) + return; + } + + dest = retarray->base_addr; + base = array->base_addr; + + while (base) + { + const GFC_UINTEGER_16 * restrict src; + const GFC_LOGICAL_1 * restrict msrc; + GFC_INTEGER_16 result; + src = base; + msrc = mbase; + { + + GFC_UINTEGER_16 maxval; +#if defined (GFC_UINTEGER_16_INFINITY) + maxval = -GFC_UINTEGER_16_INFINITY; +#else + maxval = 0; +#endif +#if defined (GFC_UINTEGER_16_QUIET_NAN) + GFC_INTEGER_16 result2 = 0; +#endif + result = 0; + for (n = 0; n < len; n++, src += delta, msrc += mdelta) + { + + if (*msrc) + { +#if defined (GFC_UINTEGER_16_QUIET_NAN) + if (!result2) + result2 = (GFC_INTEGER_16)n + 1; + if (*src >= maxval) +#endif + { + maxval = *src; + result = (GFC_INTEGER_16)n + 1; + break; + } + } + } +#if defined (GFC_UINTEGER_16_QUIET_NAN) + if (unlikely (n >= len)) + result = result2; + else +#endif + if (back) + for (; n < len; n++, src += delta, msrc += mdelta) + { + if (*msrc && unlikely (*src >= maxval)) + { + maxval = *src; + result = (GFC_INTEGER_16)n + 1; + } + } + else + for (; n < len; n++, src += delta, msrc += mdelta) + { + if (*msrc && unlikely (*src > maxval)) + { + maxval = *src; + result = (GFC_INTEGER_16)n + 1; + } + } + *dest = result; + } + /* Advance to the next element. */ + count[0]++; + base += sstride[0]; + mbase += mstride[0]; + dest += dstride[0]; + n = 0; + while (count[n] == extent[n]) + { + /* When we get to the end of a dimension, reset it and increment + the next dimension. */ + count[n] = 0; + /* We could precalculate these products, but this is a less + frequently used path so probably not worth it. */ + base -= sstride[n] * extent[n]; + mbase -= mstride[n] * extent[n]; + dest -= dstride[n] * extent[n]; + n++; + if (n >= rank) + { + /* Break out of the loop. */ + base = NULL; + break; + } + else + { + count[n]++; + base += sstride[n]; + mbase += mstride[n]; + dest += dstride[n]; + } + } + } +} + + +extern void smaxloc1_16_m16 (gfc_array_i16 * const restrict, + gfc_array_m16 * const restrict, const index_type * const restrict, + GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); +export_proto(smaxloc1_16_m16); + +void +smaxloc1_16_m16 (gfc_array_i16 * const restrict retarray, + gfc_array_m16 * const restrict array, + const index_type * const restrict pdim, + GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) +{ + index_type count[GFC_MAX_DIMENSIONS]; + index_type extent[GFC_MAX_DIMENSIONS]; + index_type dstride[GFC_MAX_DIMENSIONS]; + GFC_INTEGER_16 * restrict dest; + index_type rank; + index_type n; + index_type dim; + + + if (mask == NULL || *mask) + { +#ifdef HAVE_BACK_ARG + maxloc1_16_m16 (retarray, array, pdim, back); +#else + maxloc1_16_m16 (retarray, array, pdim); +#endif + return; + } + /* Make dim zero based to avoid confusion. */ + dim = (*pdim) - 1; + rank = GFC_DESCRIPTOR_RANK (array) - 1; + + if (unlikely (dim < 0 || dim > rank)) + { + runtime_error ("Dim argument incorrect in MAXLOC intrinsic: " + "is %ld, should be between 1 and %ld", + (long int) dim + 1, (long int) rank + 1); + } + + for (n = 0; n < dim; n++) + { + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); + + if (extent[n] <= 0) + extent[n] = 0; + } + + for (n = dim; n < rank; n++) + { + extent[n] = + GFC_DESCRIPTOR_EXTENT(array,n + 1); + + if (extent[n] <= 0) + extent[n] = 0; + } + + if (retarray->base_addr == NULL) + { + size_t alloc_size, str; + + for (n = 0; n < rank; n++) + { + if (n == 0) + str = 1; + else + str = GFC_DESCRIPTOR_STRIDE(retarray,n-1) * extent[n-1]; + + GFC_DIMENSION_SET(retarray->dim[n], 0, extent[n] - 1, str); + + } + + retarray->offset = 0; + retarray->dtype.rank = rank; + + alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1]; + + retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_16)); + if (alloc_size == 0) + return; + } + else + { + if (rank != GFC_DESCRIPTOR_RANK (retarray)) + runtime_error ("rank of return array incorrect in" + " MAXLOC intrinsic: is %ld, should be %ld", + (long int) (GFC_DESCRIPTOR_RANK (retarray)), + (long int) rank); + + if (unlikely (compile_options.bounds_check)) + { + for (n=0; n < rank; n++) + { + index_type ret_extent; + + ret_extent = GFC_DESCRIPTOR_EXTENT(retarray,n); + if (extent[n] != ret_extent) + runtime_error ("Incorrect extent in return value of" + " MAXLOC intrinsic in dimension %ld:" + " is %ld, should be %ld", (long int) n + 1, + (long int) ret_extent, (long int) extent[n]); + } + } + } + + for (n = 0; n < rank; n++) + { + count[n] = 0; + dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n); + } + + dest = retarray->base_addr; + + while(1) + { + *dest = 0; + count[0]++; + dest += dstride[0]; + n = 0; + while (count[n] == extent[n]) + { + /* When we get to the end of a dimension, reset it and increment + the next dimension. */ + count[n] = 0; + /* We could precalculate these products, but this is a less + frequently used path so probably not worth it. */ + dest -= dstride[n] * extent[n]; + n++; + if (n >= rank) + return; + else + { + count[n]++; + dest += dstride[n]; + } + } + } +} + +#endif diff --git a/libgfortran/generated/maxloc1_16_m2.c b/libgfortran/generated/maxloc1_16_m2.c index 0187b68..8bb48dd 100644 --- a/libgfortran/generated/maxloc1_16_m2.c +++ b/libgfortran/generated/maxloc1_16_m2.c @@ -147,7 +147,7 @@ maxloc1_16_m2 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m2 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_2_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_16_m4.c b/libgfortran/generated/maxloc1_16_m4.c index 480a524..659d6cf 100644 --- a/libgfortran/generated/maxloc1_16_m4.c +++ b/libgfortran/generated/maxloc1_16_m4.c @@ -147,7 +147,7 @@ maxloc1_16_m4 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m4 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_4_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_16_m8.c b/libgfortran/generated/maxloc1_16_m8.c index ecbaba3..a6d2c08 100644 --- a/libgfortran/generated/maxloc1_16_m8.c +++ b/libgfortran/generated/maxloc1_16_m8.c @@ -147,7 +147,7 @@ maxloc1_16_m8 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_16_m8 (gfc_array_i16 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_8_QUIET_NAN) GFC_INTEGER_16 result2 = 0; diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c index 2462713..87b5647 100644 --- a/libgfortran/generated/maxloc1_16_r10.c +++ b/libgfortran/generated/maxloc1_16_r10.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_r10 (gfc_array_i16 * const restrict, +extern void maxloc1_16_r10 (gfc_array_i16 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_r10); void -maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, - gfc_array_r10 * const restrict array, +maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_r10); void -mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_r10 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_r10 (gfc_array_i16 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_r10); void -smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c index 5ad73be..2bc6edb 100644 --- a/libgfortran/generated/maxloc1_16_r16.c +++ b/libgfortran/generated/maxloc1_16_r16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_r16 (gfc_array_i16 * const restrict, +extern void maxloc1_16_r16 (gfc_array_i16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_r16); void -maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, - gfc_array_r16 * const restrict array, +maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_r16); void -mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_r16 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_r16 (gfc_array_i16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_r16); void -smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_r17.c b/libgfortran/generated/maxloc1_16_r17.c index 4444d41..ce52598 100644 --- a/libgfortran/generated/maxloc1_16_r17.c +++ b/libgfortran/generated/maxloc1_16_r17.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_r17 (gfc_array_i16 * const restrict, +extern void maxloc1_16_r17 (gfc_array_i16 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_r17); void -maxloc1_16_r17 (gfc_array_i16 * const restrict retarray, - gfc_array_r17 * const restrict array, +maxloc1_16_r17 (gfc_array_i16 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_r17 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_r17 (gfc_array_i16 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_r17); void -mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_r17 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_r17 (gfc_array_i16 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_r17); void -smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c index 0be7ad1..5ae022f 100644 --- a/libgfortran/generated/maxloc1_16_r4.c +++ b/libgfortran/generated/maxloc1_16_r4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_r4 (gfc_array_i16 * const restrict, +extern void maxloc1_16_r4 (gfc_array_i16 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_r4); void -maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, - gfc_array_r4 * const restrict array, +maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_r4); void -mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_r4 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_r4 (gfc_array_i16 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_r4); void -smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c index fd3dae9..cf2e126 100644 --- a/libgfortran/generated/maxloc1_16_r8.c +++ b/libgfortran/generated/maxloc1_16_r8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_16_r8 (gfc_array_i16 * const restrict, +extern void maxloc1_16_r8 (gfc_array_i16 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_r8); void -maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, - gfc_array_r8 * const restrict array, +maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict, +extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_16_r8); void -mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_r8 (gfc_array_i16 * const restrict, +extern void smaxloc1_16_r8 (gfc_array_i16 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_16_r8); void -smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_16_s1.c b/libgfortran/generated/maxloc1_16_s1.c index cbab817..21ea81a 100644 --- a/libgfortran/generated/maxloc1_16_s1.c +++ b/libgfortran/generated/maxloc1_16_s1.c @@ -457,7 +457,7 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/maxloc1_16_s4.c b/libgfortran/generated/maxloc1_16_s4.c index d7d8893..47e14c1 100644 --- a/libgfortran/generated/maxloc1_16_s4.c +++ b/libgfortran/generated/maxloc1_16_s4.c @@ -457,7 +457,7 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c index 664c1db..a54feb4 100644 --- a/libgfortran/generated/maxloc1_4_i1.c +++ b/libgfortran/generated/maxloc1_4_i1.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_i1 (gfc_array_i4 * const restrict, +extern void maxloc1_4_i1 (gfc_array_i4 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_i1); void -maxloc1_4_i1 (gfc_array_i4 * const restrict retarray, - gfc_array_i1 * const restrict array, +maxloc1_4_i1 (gfc_array_i4 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_i1 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_i1 (gfc_array_i4 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_i1); void -mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_i1 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_i1 (gfc_array_i4 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_i1); void -smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c index 1f07aa0..cb866c0 100644 --- a/libgfortran/generated/maxloc1_4_i16.c +++ b/libgfortran/generated/maxloc1_4_i16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_i16 (gfc_array_i4 * const restrict, +extern void maxloc1_4_i16 (gfc_array_i4 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_i16); void -maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, +maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_i16); void -mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_i16 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_i16 (gfc_array_i4 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_i16); void -smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c index f7152f1..45aa9a1 100644 --- a/libgfortran/generated/maxloc1_4_i2.c +++ b/libgfortran/generated/maxloc1_4_i2.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_i2 (gfc_array_i4 * const restrict, +extern void maxloc1_4_i2 (gfc_array_i4 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_i2); void -maxloc1_4_i2 (gfc_array_i4 * const restrict retarray, - gfc_array_i2 * const restrict array, +maxloc1_4_i2 (gfc_array_i4 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_i2 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_i2 (gfc_array_i4 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_i2); void -mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_i2 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_i2 (gfc_array_i4 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_i2); void -smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index e5d3484..ae966d8 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_i4 (gfc_array_i4 * const restrict, +extern void maxloc1_4_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_i4); void -maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, +maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_i4); void -mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_i4 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_i4); void -smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index bcc3445..31bff23 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_i8 (gfc_array_i4 * const restrict, +extern void maxloc1_4_i8 (gfc_array_i4 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_i8); void -maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, +maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_i8); void -mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_i8 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_i8 (gfc_array_i4 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_i8); void -smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_m1.c b/libgfortran/generated/maxloc1_4_m1.c index e69d49d..709a1dd 100644 --- a/libgfortran/generated/maxloc1_4_m1.c +++ b/libgfortran/generated/maxloc1_4_m1.c @@ -147,7 +147,7 @@ maxloc1_4_m1 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m1 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_1_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m16.c b/libgfortran/generated/maxloc1_4_m16.c index 0ed90bb..cc10527 100644 --- a/libgfortran/generated/maxloc1_4_m16.c +++ b/libgfortran/generated/maxloc1_4_m16.c @@ -147,7 +147,7 @@ maxloc1_4_m16 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m16 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_16_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m2.c b/libgfortran/generated/maxloc1_4_m2.c index 76aa8d1..06f989c 100644 --- a/libgfortran/generated/maxloc1_4_m2.c +++ b/libgfortran/generated/maxloc1_4_m2.c @@ -147,7 +147,7 @@ maxloc1_4_m2 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m2 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_2_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m4.c b/libgfortran/generated/maxloc1_4_m4.c index 3313c14..6a52a0a 100644 --- a/libgfortran/generated/maxloc1_4_m4.c +++ b/libgfortran/generated/maxloc1_4_m4.c @@ -147,7 +147,7 @@ maxloc1_4_m4 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m4 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_4_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_m8.c b/libgfortran/generated/maxloc1_4_m8.c index 1f39517..e2f92a9 100644 --- a/libgfortran/generated/maxloc1_4_m8.c +++ b/libgfortran/generated/maxloc1_4_m8.c @@ -147,7 +147,7 @@ maxloc1_4_m8 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_4_m8 (gfc_array_i4 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_8_QUIET_NAN) GFC_INTEGER_4 result2 = 0; diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c index 0b0ac4b..fdab042 100644 --- a/libgfortran/generated/maxloc1_4_r10.c +++ b/libgfortran/generated/maxloc1_4_r10.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_r10 (gfc_array_i4 * const restrict, +extern void maxloc1_4_r10 (gfc_array_i4 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_r10); void -maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, - gfc_array_r10 * const restrict array, +maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_r10); void -mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_r10 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_r10 (gfc_array_i4 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_r10); void -smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c index ffc1e4d..9eedf78 100644 --- a/libgfortran/generated/maxloc1_4_r16.c +++ b/libgfortran/generated/maxloc1_4_r16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_r16 (gfc_array_i4 * const restrict, +extern void maxloc1_4_r16 (gfc_array_i4 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_r16); void -maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, - gfc_array_r16 * const restrict array, +maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_r16); void -mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_r16 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_r16 (gfc_array_i4 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_r16); void -smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_r17.c b/libgfortran/generated/maxloc1_4_r17.c index f59a9ee..516268e 100644 --- a/libgfortran/generated/maxloc1_4_r17.c +++ b/libgfortran/generated/maxloc1_4_r17.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_r17 (gfc_array_i4 * const restrict, +extern void maxloc1_4_r17 (gfc_array_i4 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_r17); void -maxloc1_4_r17 (gfc_array_i4 * const restrict retarray, - gfc_array_r17 * const restrict array, +maxloc1_4_r17 (gfc_array_i4 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_r17 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_r17 (gfc_array_i4 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_r17); void -mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_r17 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_r17 (gfc_array_i4 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_r17); void -smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index bd9343f..1ccc30c 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_r4 (gfc_array_i4 * const restrict, +extern void maxloc1_4_r4 (gfc_array_i4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_r4); void -maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, - gfc_array_r4 * const restrict array, +maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_r4); void -mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_r4 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_r4 (gfc_array_i4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_r4); void -smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index a63ae6a..86da064 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_4_r8 (gfc_array_i4 * const restrict, +extern void maxloc1_4_r8 (gfc_array_i4 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_r8); void -maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, - gfc_array_r8 * const restrict array, +maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict, +extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_4_r8); void -mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_r8 (gfc_array_i4 * const restrict, +extern void smaxloc1_4_r8 (gfc_array_i4 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_4_r8); void -smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_s1.c b/libgfortran/generated/maxloc1_4_s1.c index 51740ee..66ee8d0 100644 --- a/libgfortran/generated/maxloc1_4_s1.c +++ b/libgfortran/generated/maxloc1_4_s1.c @@ -457,7 +457,7 @@ smaxloc1_4_s1 (gfc_array_i4 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ smaxloc1_4_s1 (gfc_array_i4 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/maxloc1_4_s4.c b/libgfortran/generated/maxloc1_4_s4.c index cf04d6d..7d889c0 100644 --- a/libgfortran/generated/maxloc1_4_s4.c +++ b/libgfortran/generated/maxloc1_4_s4.c @@ -457,7 +457,7 @@ smaxloc1_4_s4 (gfc_array_i4 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ smaxloc1_4_s4 (gfc_array_i4 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c index 01b30c9..bb74533 100644 --- a/libgfortran/generated/maxloc1_8_i1.c +++ b/libgfortran/generated/maxloc1_8_i1.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_i1 (gfc_array_i8 * const restrict, +extern void maxloc1_8_i1 (gfc_array_i8 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_i1); void -maxloc1_8_i1 (gfc_array_i8 * const restrict retarray, - gfc_array_i1 * const restrict array, +maxloc1_8_i1 (gfc_array_i8 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_i1 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_i1 (gfc_array_i8 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_i1); void -mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_i1 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_i1 (gfc_array_i8 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_i1); void -smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c index 6fa0ed3..6e8061a 100644 --- a/libgfortran/generated/maxloc1_8_i16.c +++ b/libgfortran/generated/maxloc1_8_i16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_i16 (gfc_array_i8 * const restrict, +extern void maxloc1_8_i16 (gfc_array_i8 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_i16); void -maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, +maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_i16); void -mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_i16 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_i16 (gfc_array_i8 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_i16); void -smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c index 9396613..ed4fda5 100644 --- a/libgfortran/generated/maxloc1_8_i2.c +++ b/libgfortran/generated/maxloc1_8_i2.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_i2 (gfc_array_i8 * const restrict, +extern void maxloc1_8_i2 (gfc_array_i8 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_i2); void -maxloc1_8_i2 (gfc_array_i8 * const restrict retarray, - gfc_array_i2 * const restrict array, +maxloc1_8_i2 (gfc_array_i8 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_i2 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_i2 (gfc_array_i8 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_i2); void -mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_i2 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_i2 (gfc_array_i8 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_i2); void -smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index baf6d9a..4c70831 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_i4 (gfc_array_i8 * const restrict, +extern void maxloc1_8_i4 (gfc_array_i8 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_i4); void -maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, - gfc_array_i4 * const restrict array, +maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_i4); void -mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_i4 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_i4 (gfc_array_i8 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_i4); void -smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index b72c973..d0c3495 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_i8 (gfc_array_i8 * const restrict, +extern void maxloc1_8_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_i8); void -maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, +maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_i8); void -mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_i8 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_i8); void -smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_m1.c b/libgfortran/generated/maxloc1_8_m1.c index 7c3ac0f9..2f2ff5a 100644 --- a/libgfortran/generated/maxloc1_8_m1.c +++ b/libgfortran/generated/maxloc1_8_m1.c @@ -147,7 +147,7 @@ maxloc1_8_m1 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m1 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) maxval = -GFC_UINTEGER_1_INFINITY; #else - maxval = -GFC_UINTEGER_1_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_1_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m16.c b/libgfortran/generated/maxloc1_8_m16.c index c643963..c0c47bb 100644 --- a/libgfortran/generated/maxloc1_8_m16.c +++ b/libgfortran/generated/maxloc1_8_m16.c @@ -147,7 +147,7 @@ maxloc1_8_m16 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m16 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) maxval = -GFC_UINTEGER_16_INFINITY; #else - maxval = -GFC_UINTEGER_16_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_16_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m2.c b/libgfortran/generated/maxloc1_8_m2.c index 2fa5c3b..cf915b0 100644 --- a/libgfortran/generated/maxloc1_8_m2.c +++ b/libgfortran/generated/maxloc1_8_m2.c @@ -147,7 +147,7 @@ maxloc1_8_m2 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m2 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) maxval = -GFC_UINTEGER_2_INFINITY; #else - maxval = -GFC_UINTEGER_2_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_2_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m4.c b/libgfortran/generated/maxloc1_8_m4.c index 8761c09..6a08644 100644 --- a/libgfortran/generated/maxloc1_8_m4.c +++ b/libgfortran/generated/maxloc1_8_m4.c @@ -147,7 +147,7 @@ maxloc1_8_m4 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m4 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) maxval = -GFC_UINTEGER_4_INFINITY; #else - maxval = -GFC_UINTEGER_4_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_4_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_m8.c b/libgfortran/generated/maxloc1_8_m8.c index 83c9795..497b18d 100644 --- a/libgfortran/generated/maxloc1_8_m8.c +++ b/libgfortran/generated/maxloc1_8_m8.c @@ -147,7 +147,7 @@ maxloc1_8_m8 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif result = 1; if (len <= 0) @@ -366,7 +366,7 @@ mmaxloc1_8_m8 (gfc_array_i8 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) maxval = -GFC_UINTEGER_8_INFINITY; #else - maxval = -GFC_UINTEGER_8_HUGE; + maxval = 0; #endif #if defined (GFC_UINTEGER_8_QUIET_NAN) GFC_INTEGER_8 result2 = 0; diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c index d593dd6..f67183f 100644 --- a/libgfortran/generated/maxloc1_8_r10.c +++ b/libgfortran/generated/maxloc1_8_r10.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_r10 (gfc_array_i8 * const restrict, +extern void maxloc1_8_r10 (gfc_array_i8 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_r10); void -maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, - gfc_array_r10 * const restrict array, +maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_r10); void -mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_r10 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_r10 (gfc_array_i8 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_r10); void -smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c index 8a270d8..6b2fc59 100644 --- a/libgfortran/generated/maxloc1_8_r16.c +++ b/libgfortran/generated/maxloc1_8_r16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_r16 (gfc_array_i8 * const restrict, +extern void maxloc1_8_r16 (gfc_array_i8 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_r16); void -maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, - gfc_array_r16 * const restrict array, +maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_r16); void -mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_r16 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_r16 (gfc_array_i8 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_r16); void -smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_r17.c b/libgfortran/generated/maxloc1_8_r17.c index 03a37c5..65b4808 100644 --- a/libgfortran/generated/maxloc1_8_r17.c +++ b/libgfortran/generated/maxloc1_8_r17.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_r17 (gfc_array_i8 * const restrict, +extern void maxloc1_8_r17 (gfc_array_i8 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_r17); void -maxloc1_8_r17 (gfc_array_i8 * const restrict retarray, - gfc_array_r17 * const restrict array, +maxloc1_8_r17 (gfc_array_i8 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_r17 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_r17 (gfc_array_i8 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_r17); void -mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_r17 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_r17 (gfc_array_i8 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_r17); void -smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index b4917a3..844038c 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_r4 (gfc_array_i8 * const restrict, +extern void maxloc1_8_r4 (gfc_array_i8 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_r4); void -maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, - gfc_array_r4 * const restrict array, +maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_r4); void -mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_r4 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_r4 (gfc_array_i8 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_r4); void -smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index ed60a45..7e61bfe 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void maxloc1_8_r8 (gfc_array_i8 * const restrict, +extern void maxloc1_8_r8 (gfc_array_i8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_r8); void -maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, - gfc_array_r8 * const restrict array, +maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -216,15 +216,15 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict, +extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mmaxloc1_8_r8); void -mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -449,15 +449,15 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_r8 (gfc_array_i8 * const restrict, +extern void smaxloc1_8_r8 (gfc_array_i8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(smaxloc1_8_r8); void -smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_8_s1.c b/libgfortran/generated/maxloc1_8_s1.c index a35e552..d4711e2 100644 --- a/libgfortran/generated/maxloc1_8_s1.c +++ b/libgfortran/generated/maxloc1_8_s1.c @@ -457,7 +457,7 @@ smaxloc1_8_s1 (gfc_array_i8 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ smaxloc1_8_s1 (gfc_array_i8 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/maxloc1_8_s4.c b/libgfortran/generated/maxloc1_8_s4.c index e264779..dea360e 100644 --- a/libgfortran/generated/maxloc1_8_s4.c +++ b/libgfortran/generated/maxloc1_8_s4.c @@ -457,7 +457,7 @@ smaxloc1_8_s4 (gfc_array_i8 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ smaxloc1_8_s4 (gfc_array_i8 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/maxloc2_16_s1.c b/libgfortran/generated/maxloc2_16_s1.c index 6e860ee..d38d422 100644 --- a/libgfortran/generated/maxloc2_16_s1.c +++ b/libgfortran/generated/maxloc2_16_s1.c @@ -152,8 +152,8 @@ GFC_INTEGER_16 smaxloc2_16_s1 (gfc_array_s1 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return maxloc2_16_s1 (array, len, back); + if (mask == NULL || *mask) + return maxloc2_16_s1 (array, back, len); else return 0; } diff --git a/libgfortran/generated/maxloc2_16_s4.c b/libgfortran/generated/maxloc2_16_s4.c index e4ac04c..09fdbf8 100644 --- a/libgfortran/generated/maxloc2_16_s4.c +++ b/libgfortran/generated/maxloc2_16_s4.c @@ -152,8 +152,8 @@ GFC_INTEGER_16 smaxloc2_16_s4 (gfc_array_s4 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return maxloc2_16_s4 (array, len, back); + if (mask == NULL || *mask) + return maxloc2_16_s4 (array, back, len); else return 0; } diff --git a/libgfortran/generated/maxloc2_4_s1.c b/libgfortran/generated/maxloc2_4_s1.c index 78a5012..0804f59 100644 --- a/libgfortran/generated/maxloc2_4_s1.c +++ b/libgfortran/generated/maxloc2_4_s1.c @@ -152,8 +152,8 @@ GFC_INTEGER_4 smaxloc2_4_s1 (gfc_array_s1 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return maxloc2_4_s1 (array, len, back); + if (mask == NULL || *mask) + return maxloc2_4_s1 (array, back, len); else return 0; } diff --git a/libgfortran/generated/maxloc2_4_s4.c b/libgfortran/generated/maxloc2_4_s4.c index 399dab7..6dac06e 100644 --- a/libgfortran/generated/maxloc2_4_s4.c +++ b/libgfortran/generated/maxloc2_4_s4.c @@ -152,8 +152,8 @@ GFC_INTEGER_4 smaxloc2_4_s4 (gfc_array_s4 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return maxloc2_4_s4 (array, len, back); + if (mask == NULL || *mask) + return maxloc2_4_s4 (array, back, len); else return 0; } diff --git a/libgfortran/generated/maxloc2_8_s1.c b/libgfortran/generated/maxloc2_8_s1.c index 9e1d36f9..5ced3c6 100644 --- a/libgfortran/generated/maxloc2_8_s1.c +++ b/libgfortran/generated/maxloc2_8_s1.c @@ -152,8 +152,8 @@ GFC_INTEGER_8 smaxloc2_8_s1 (gfc_array_s1 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return maxloc2_8_s1 (array, len, back); + if (mask == NULL || *mask) + return maxloc2_8_s1 (array, back, len); else return 0; } diff --git a/libgfortran/generated/maxloc2_8_s4.c b/libgfortran/generated/maxloc2_8_s4.c index a44c6f6..78ae1be 100644 --- a/libgfortran/generated/maxloc2_8_s4.c +++ b/libgfortran/generated/maxloc2_8_s4.c @@ -152,8 +152,8 @@ GFC_INTEGER_8 smaxloc2_8_s4 (gfc_array_s4 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return maxloc2_8_s4 (array, len, back); + if (mask == NULL || *mask) + return maxloc2_8_s4 (array, back, len); else return 0; } diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c index 984f7b0..a7672ac 100644 --- a/libgfortran/generated/maxval_i1.c +++ b/libgfortran/generated/maxval_i1.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1) -extern void maxval_i1 (gfc_array_i1 * const restrict, +extern void maxval_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict); export_proto(maxval_i1); void -maxval_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, +maxval_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_i1 (gfc_array_i1 * const restrict retarray, } -extern void mmaxval_i1 (gfc_array_i1 * const restrict, +extern void mmaxval_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_i1); void -mmaxval_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +mmaxval_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray, } -extern void smaxval_i1 (gfc_array_i1 * const restrict, +extern void smaxval_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_i1); void -smaxval_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +smaxval_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c index 7effaa0..1ab0245 100644 --- a/libgfortran/generated/maxval_i16.c +++ b/libgfortran/generated/maxval_i16.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) -extern void maxval_i16 (gfc_array_i16 * const restrict, +extern void maxval_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict); export_proto(maxval_i16); void -maxval_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, +maxval_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_i16 (gfc_array_i16 * const restrict retarray, } -extern void mmaxval_i16 (gfc_array_i16 * const restrict, +extern void mmaxval_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_i16); void -mmaxval_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mmaxval_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray, } -extern void smaxval_i16 (gfc_array_i16 * const restrict, +extern void smaxval_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_i16); void -smaxval_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +smaxval_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c index f39f1e1..8aa05bb 100644 --- a/libgfortran/generated/maxval_i2.c +++ b/libgfortran/generated/maxval_i2.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2) -extern void maxval_i2 (gfc_array_i2 * const restrict, +extern void maxval_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict); export_proto(maxval_i2); void -maxval_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, +maxval_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_i2 (gfc_array_i2 * const restrict retarray, } -extern void mmaxval_i2 (gfc_array_i2 * const restrict, +extern void mmaxval_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_i2); void -mmaxval_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +mmaxval_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray, } -extern void smaxval_i2 (gfc_array_i2 * const restrict, +extern void smaxval_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_i2); void -smaxval_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +smaxval_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index 95aff8c..a149303 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4) -extern void maxval_i4 (gfc_array_i4 * const restrict, +extern void maxval_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict); export_proto(maxval_i4); void -maxval_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, +maxval_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_i4 (gfc_array_i4 * const restrict retarray, } -extern void mmaxval_i4 (gfc_array_i4 * const restrict, +extern void mmaxval_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_i4); void -mmaxval_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +mmaxval_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray, } -extern void smaxval_i4 (gfc_array_i4 * const restrict, +extern void smaxval_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_i4); void -smaxval_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +smaxval_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index 1743335..42746ce 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8) -extern void maxval_i8 (gfc_array_i8 * const restrict, +extern void maxval_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict); export_proto(maxval_i8); void -maxval_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, +maxval_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_i8 (gfc_array_i8 * const restrict retarray, } -extern void mmaxval_i8 (gfc_array_i8 * const restrict, +extern void mmaxval_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_i8); void -mmaxval_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mmaxval_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray, } -extern void smaxval_i8 (gfc_array_i8 * const restrict, +extern void smaxval_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_i8); void -smaxval_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +smaxval_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_m1.c b/libgfortran/generated/maxval_m1.c index 18df9b8..04bf510 100644 --- a/libgfortran/generated/maxval_m1.c +++ b/libgfortran/generated/maxval_m1.c @@ -143,10 +143,10 @@ maxval_m1 (gfc_array_m1 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) result = -GFC_UINTEGER_1_INFINITY; #else - result = -GFC_UINTEGER_1_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_1_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m1 (gfc_array_m1 * const restrict retarray, #if defined (GFC_UINTEGER_1_INFINITY) result = -GFC_UINTEGER_1_INFINITY; #else - result = -GFC_UINTEGER_1_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_1_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m1 (gfc_array_m1 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_1_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_1_QUIET_NAN : -GFC_UINTEGER_1_HUGE; + result = non_empty_p ? GFC_UINTEGER_1_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_1_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m1 (gfc_array_m1 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_1_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_m16.c b/libgfortran/generated/maxval_m16.c index a66dc7a..0833d01 100644 --- a/libgfortran/generated/maxval_m16.c +++ b/libgfortran/generated/maxval_m16.c @@ -143,10 +143,10 @@ maxval_m16 (gfc_array_m16 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) result = -GFC_UINTEGER_16_INFINITY; #else - result = -GFC_UINTEGER_16_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_16_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m16 (gfc_array_m16 * const restrict retarray, #if defined (GFC_UINTEGER_16_INFINITY) result = -GFC_UINTEGER_16_INFINITY; #else - result = -GFC_UINTEGER_16_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_16_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m16 (gfc_array_m16 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_16_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_16_QUIET_NAN : -GFC_UINTEGER_16_HUGE; + result = non_empty_p ? GFC_UINTEGER_16_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_16_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m16 (gfc_array_m16 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_16_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_m2.c b/libgfortran/generated/maxval_m2.c index 19fa8de..70f3785 100644 --- a/libgfortran/generated/maxval_m2.c +++ b/libgfortran/generated/maxval_m2.c @@ -143,10 +143,10 @@ maxval_m2 (gfc_array_m2 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) result = -GFC_UINTEGER_2_INFINITY; #else - result = -GFC_UINTEGER_2_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_2_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m2 (gfc_array_m2 * const restrict retarray, #if defined (GFC_UINTEGER_2_INFINITY) result = -GFC_UINTEGER_2_INFINITY; #else - result = -GFC_UINTEGER_2_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_2_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m2 (gfc_array_m2 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_2_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_2_QUIET_NAN : -GFC_UINTEGER_2_HUGE; + result = non_empty_p ? GFC_UINTEGER_2_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_2_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m2 (gfc_array_m2 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_2_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_m4.c b/libgfortran/generated/maxval_m4.c index 6d660d8..3b1e79a 100644 --- a/libgfortran/generated/maxval_m4.c +++ b/libgfortran/generated/maxval_m4.c @@ -143,10 +143,10 @@ maxval_m4 (gfc_array_m4 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) result = -GFC_UINTEGER_4_INFINITY; #else - result = -GFC_UINTEGER_4_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_4_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m4 (gfc_array_m4 * const restrict retarray, #if defined (GFC_UINTEGER_4_INFINITY) result = -GFC_UINTEGER_4_INFINITY; #else - result = -GFC_UINTEGER_4_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_4_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m4 (gfc_array_m4 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_4_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_4_QUIET_NAN : -GFC_UINTEGER_4_HUGE; + result = non_empty_p ? GFC_UINTEGER_4_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_4_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m4 (gfc_array_m4 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_4_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_m8.c b/libgfortran/generated/maxval_m8.c index d6b7dac..ece6438 100644 --- a/libgfortran/generated/maxval_m8.c +++ b/libgfortran/generated/maxval_m8.c @@ -143,10 +143,10 @@ maxval_m8 (gfc_array_m8 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) result = -GFC_UINTEGER_8_INFINITY; #else - result = -GFC_UINTEGER_8_HUGE; + result = 0; #endif if (len <= 0) - *dest = -GFC_UINTEGER_8_HUGE; + *dest = 0; else { #if ! defined HAVE_BACK_ARG @@ -351,7 +351,7 @@ mmaxval_m8 (gfc_array_m8 * const restrict retarray, #if defined (GFC_UINTEGER_8_INFINITY) result = -GFC_UINTEGER_8_INFINITY; #else - result = -GFC_UINTEGER_8_HUGE; + result = 0; #endif #if defined (GFC_UINTEGER_8_QUIET_NAN) int non_empty_p = 0; @@ -372,9 +372,9 @@ mmaxval_m8 (gfc_array_m8 * const restrict retarray, if (unlikely (n >= len)) { #if defined (GFC_UINTEGER_8_QUIET_NAN) - result = non_empty_p ? GFC_UINTEGER_8_QUIET_NAN : -GFC_UINTEGER_8_HUGE; + result = non_empty_p ? GFC_UINTEGER_8_QUIET_NAN : 0; #else - result = -GFC_UINTEGER_8_HUGE; + result = 0; #endif } else for (; n < len; n++, src += delta, msrc += mdelta) @@ -535,7 +535,7 @@ smaxval_m8 (gfc_array_m8 * const restrict retarray, while(1) { - *dest = -GFC_UINTEGER_8_HUGE; + *dest = 0; count[0]++; dest += dstride[0]; n = 0; diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c index dbf6899..7488db0 100644 --- a/libgfortran/generated/maxval_r10.c +++ b/libgfortran/generated/maxval_r10.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10) -extern void maxval_r10 (gfc_array_r10 * const restrict, +extern void maxval_r10 (gfc_array_r10 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict); export_proto(maxval_r10); void -maxval_r10 (gfc_array_r10 * const restrict retarray, - gfc_array_r10 * const restrict array, +maxval_r10 (gfc_array_r10 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_r10 (gfc_array_r10 * const restrict retarray, } -extern void mmaxval_r10 (gfc_array_r10 * const restrict, +extern void mmaxval_r10 (gfc_array_r10 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_r10); void -mmaxval_r10 (gfc_array_r10 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +mmaxval_r10 (gfc_array_r10 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray, } -extern void smaxval_r10 (gfc_array_r10 * const restrict, +extern void smaxval_r10 (gfc_array_r10 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_r10); void -smaxval_r10 (gfc_array_r10 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +smaxval_r10 (gfc_array_r10 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c index 73cb64f..c735944 100644 --- a/libgfortran/generated/maxval_r16.c +++ b/libgfortran/generated/maxval_r16.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16) -extern void maxval_r16 (gfc_array_r16 * const restrict, +extern void maxval_r16 (gfc_array_r16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict); export_proto(maxval_r16); void -maxval_r16 (gfc_array_r16 * const restrict retarray, - gfc_array_r16 * const restrict array, +maxval_r16 (gfc_array_r16 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_r16 (gfc_array_r16 * const restrict retarray, } -extern void mmaxval_r16 (gfc_array_r16 * const restrict, +extern void mmaxval_r16 (gfc_array_r16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_r16); void -mmaxval_r16 (gfc_array_r16 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +mmaxval_r16 (gfc_array_r16 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray, } -extern void smaxval_r16 (gfc_array_r16 * const restrict, +extern void smaxval_r16 (gfc_array_r16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_r16); void -smaxval_r16 (gfc_array_r16 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +smaxval_r16 (gfc_array_r16 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_r17.c b/libgfortran/generated/maxval_r17.c index 07cbbe1..9e47d65 100644 --- a/libgfortran/generated/maxval_r17.c +++ b/libgfortran/generated/maxval_r17.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_17) && defined (HAVE_GFC_REAL_17) -extern void maxval_r17 (gfc_array_r17 * const restrict, +extern void maxval_r17 (gfc_array_r17 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict); export_proto(maxval_r17); void -maxval_r17 (gfc_array_r17 * const restrict retarray, - gfc_array_r17 * const restrict array, +maxval_r17 (gfc_array_r17 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_r17 (gfc_array_r17 * const restrict retarray, } -extern void mmaxval_r17 (gfc_array_r17 * const restrict, +extern void mmaxval_r17 (gfc_array_r17 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_r17); void -mmaxval_r17 (gfc_array_r17 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +mmaxval_r17 (gfc_array_r17 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray, } -extern void smaxval_r17 (gfc_array_r17 * const restrict, +extern void smaxval_r17 (gfc_array_r17 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_r17); void -smaxval_r17 (gfc_array_r17 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +smaxval_r17 (gfc_array_r17 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index d4b895d..c379d2e 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4) -extern void maxval_r4 (gfc_array_r4 * const restrict, +extern void maxval_r4 (gfc_array_r4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict); export_proto(maxval_r4); void -maxval_r4 (gfc_array_r4 * const restrict retarray, - gfc_array_r4 * const restrict array, +maxval_r4 (gfc_array_r4 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_r4 (gfc_array_r4 * const restrict retarray, } -extern void mmaxval_r4 (gfc_array_r4 * const restrict, +extern void mmaxval_r4 (gfc_array_r4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_r4); void -mmaxval_r4 (gfc_array_r4 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +mmaxval_r4 (gfc_array_r4 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray, } -extern void smaxval_r4 (gfc_array_r4 * const restrict, +extern void smaxval_r4 (gfc_array_r4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_r4); void -smaxval_r4 (gfc_array_r4 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +smaxval_r4 (gfc_array_r4 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index 2b2b6799..16e09bf 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8) -extern void maxval_r8 (gfc_array_r8 * const restrict, +extern void maxval_r8 (gfc_array_r8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict); export_proto(maxval_r8); void -maxval_r8 (gfc_array_r8 * const restrict retarray, - gfc_array_r8 * const restrict array, +maxval_r8 (gfc_array_r8 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ maxval_r8 (gfc_array_r8 * const restrict retarray, } -extern void mmaxval_r8 (gfc_array_r8 * const restrict, +extern void mmaxval_r8 (gfc_array_r8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mmaxval_r8); void -mmaxval_r8 (gfc_array_r8 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +mmaxval_r8 (gfc_array_r8 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray, } -extern void smaxval_r8 (gfc_array_r8 * const restrict, +extern void smaxval_r8 (gfc_array_r8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(smaxval_r8); void -smaxval_r8 (gfc_array_r8 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +smaxval_r8 (gfc_array_r8 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c index 81006ef..840139f 100644 --- a/libgfortran/generated/minloc1_16_i1.c +++ b/libgfortran/generated/minloc1_16_i1.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_i1 (gfc_array_i16 * const restrict, +extern void minloc1_16_i1 (gfc_array_i16 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_i1); void -minloc1_16_i1 (gfc_array_i16 * const restrict retarray, - gfc_array_i1 * const restrict array, +minloc1_16_i1 (gfc_array_i16 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_i1 (gfc_array_i16 * const restrict, +extern void mminloc1_16_i1 (gfc_array_i16 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_i1); void -mminloc1_16_i1 (gfc_array_i16 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_i1 (gfc_array_i16 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_i1 (gfc_array_i16 * const restrict, +extern void sminloc1_16_i1 (gfc_array_i16 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_i1); void -sminloc1_16_i1 (gfc_array_i16 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_i1 (gfc_array_i16 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c index 36ea12d..4b6545f 100644 --- a/libgfortran/generated/minloc1_16_i16.c +++ b/libgfortran/generated/minloc1_16_i16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_i16 (gfc_array_i16 * const restrict, +extern void minloc1_16_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_i16); void -minloc1_16_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, +minloc1_16_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_i16 (gfc_array_i16 * const restrict, +extern void mminloc1_16_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_i16); void -mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_i16 (gfc_array_i16 * const restrict, +extern void sminloc1_16_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_i16); void -sminloc1_16_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c index 61c9f97..89f9465 100644 --- a/libgfortran/generated/minloc1_16_i2.c +++ b/libgfortran/generated/minloc1_16_i2.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_i2 (gfc_array_i16 * const restrict, +extern void minloc1_16_i2 (gfc_array_i16 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_i2); void -minloc1_16_i2 (gfc_array_i16 * const restrict retarray, - gfc_array_i2 * const restrict array, +minloc1_16_i2 (gfc_array_i16 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_i2 (gfc_array_i16 * const restrict, +extern void mminloc1_16_i2 (gfc_array_i16 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_i2); void -mminloc1_16_i2 (gfc_array_i16 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_i2 (gfc_array_i16 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_i2 (gfc_array_i16 * const restrict, +extern void sminloc1_16_i2 (gfc_array_i16 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_i2); void -sminloc1_16_i2 (gfc_array_i16 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_i2 (gfc_array_i16 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c index d8a3683..4475dfe 100644 --- a/libgfortran/generated/minloc1_16_i4.c +++ b/libgfortran/generated/minloc1_16_i4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_i4 (gfc_array_i16 * const restrict, +extern void minloc1_16_i4 (gfc_array_i16 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_i4); void -minloc1_16_i4 (gfc_array_i16 * const restrict retarray, - gfc_array_i4 * const restrict array, +minloc1_16_i4 (gfc_array_i16 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_i4 (gfc_array_i16 * const restrict, +extern void mminloc1_16_i4 (gfc_array_i16 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_i4); void -mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_i4 (gfc_array_i16 * const restrict, +extern void sminloc1_16_i4 (gfc_array_i16 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_i4); void -sminloc1_16_i4 (gfc_array_i16 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_i4 (gfc_array_i16 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c index 70bfdec..3947898 100644 --- a/libgfortran/generated/minloc1_16_i8.c +++ b/libgfortran/generated/minloc1_16_i8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_i8 (gfc_array_i16 * const restrict, +extern void minloc1_16_i8 (gfc_array_i16 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_i8); void -minloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, +minloc1_16_i8 (gfc_array_i16 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_i8 (gfc_array_i16 * const restrict, +extern void mminloc1_16_i8 (gfc_array_i16 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_i8); void -mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_i8 (gfc_array_i16 * const restrict, +extern void sminloc1_16_i8 (gfc_array_i16 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_i8); void -sminloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_i8 (gfc_array_i16 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c index 1f16bda..46fc94e 100644 --- a/libgfortran/generated/minloc1_16_r10.c +++ b/libgfortran/generated/minloc1_16_r10.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_r10 (gfc_array_i16 * const restrict, +extern void minloc1_16_r10 (gfc_array_i16 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_r10); void -minloc1_16_r10 (gfc_array_i16 * const restrict retarray, - gfc_array_r10 * const restrict array, +minloc1_16_r10 (gfc_array_i16 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_r10 (gfc_array_i16 * const restrict, +extern void mminloc1_16_r10 (gfc_array_i16 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_r10); void -mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_r10 (gfc_array_i16 * const restrict, +extern void sminloc1_16_r10 (gfc_array_i16 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_r10); void -sminloc1_16_r10 (gfc_array_i16 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_r10 (gfc_array_i16 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c index 35bf98a..da3b8f2 100644 --- a/libgfortran/generated/minloc1_16_r16.c +++ b/libgfortran/generated/minloc1_16_r16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_r16 (gfc_array_i16 * const restrict, +extern void minloc1_16_r16 (gfc_array_i16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_r16); void -minloc1_16_r16 (gfc_array_i16 * const restrict retarray, - gfc_array_r16 * const restrict array, +minloc1_16_r16 (gfc_array_i16 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_r16 (gfc_array_i16 * const restrict, +extern void mminloc1_16_r16 (gfc_array_i16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_r16); void -mminloc1_16_r16 (gfc_array_i16 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_r16 (gfc_array_i16 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_r16 (gfc_array_i16 * const restrict, +extern void sminloc1_16_r16 (gfc_array_i16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_r16); void -sminloc1_16_r16 (gfc_array_i16 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_r16 (gfc_array_i16 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_r17.c b/libgfortran/generated/minloc1_16_r17.c index 31b3bbb..8777ecf 100644 --- a/libgfortran/generated/minloc1_16_r17.c +++ b/libgfortran/generated/minloc1_16_r17.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_r17 (gfc_array_i16 * const restrict, +extern void minloc1_16_r17 (gfc_array_i16 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_r17); void -minloc1_16_r17 (gfc_array_i16 * const restrict retarray, - gfc_array_r17 * const restrict array, +minloc1_16_r17 (gfc_array_i16 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_r17 (gfc_array_i16 * const restrict, +extern void mminloc1_16_r17 (gfc_array_i16 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_r17); void -mminloc1_16_r17 (gfc_array_i16 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_r17 (gfc_array_i16 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_r17 (gfc_array_i16 * const restrict, +extern void sminloc1_16_r17 (gfc_array_i16 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_r17); void -sminloc1_16_r17 (gfc_array_i16 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_r17 (gfc_array_i16 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c index 845aa03..1c55017 100644 --- a/libgfortran/generated/minloc1_16_r4.c +++ b/libgfortran/generated/minloc1_16_r4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_r4 (gfc_array_i16 * const restrict, +extern void minloc1_16_r4 (gfc_array_i16 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_r4); void -minloc1_16_r4 (gfc_array_i16 * const restrict retarray, - gfc_array_r4 * const restrict array, +minloc1_16_r4 (gfc_array_i16 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_r4 (gfc_array_i16 * const restrict, +extern void mminloc1_16_r4 (gfc_array_i16 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_r4); void -mminloc1_16_r4 (gfc_array_i16 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_r4 (gfc_array_i16 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_r4 (gfc_array_i16 * const restrict, +extern void sminloc1_16_r4 (gfc_array_i16 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_r4); void -sminloc1_16_r4 (gfc_array_i16 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_r4 (gfc_array_i16 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c index d676009..e778c47 100644 --- a/libgfortran/generated/minloc1_16_r8.c +++ b/libgfortran/generated/minloc1_16_r8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_16_r8 (gfc_array_i16 * const restrict, +extern void minloc1_16_r8 (gfc_array_i16 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_16_r8); void -minloc1_16_r8 (gfc_array_i16 * const restrict retarray, - gfc_array_r8 * const restrict array, +minloc1_16_r8 (gfc_array_i16 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray, } -extern void mminloc1_16_r8 (gfc_array_i16 * const restrict, +extern void mminloc1_16_r8 (gfc_array_i16 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_16_r8); void -mminloc1_16_r8 (gfc_array_i16 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +mminloc1_16_r8 (gfc_array_i16 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray, } -extern void sminloc1_16_r8 (gfc_array_i16 * const restrict, +extern void sminloc1_16_r8 (gfc_array_i16 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_16_r8); void -sminloc1_16_r8 (gfc_array_i16 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +sminloc1_16_r8 (gfc_array_i16 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_16_s1.c b/libgfortran/generated/minloc1_16_s1.c index 8228009..b654608 100644 --- a/libgfortran/generated/minloc1_16_s1.c +++ b/libgfortran/generated/minloc1_16_s1.c @@ -457,7 +457,7 @@ sminloc1_16_s1 (gfc_array_i16 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ sminloc1_16_s1 (gfc_array_i16 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/minloc1_16_s4.c b/libgfortran/generated/minloc1_16_s4.c index e40bf54..2e709a7 100644 --- a/libgfortran/generated/minloc1_16_s4.c +++ b/libgfortran/generated/minloc1_16_s4.c @@ -457,7 +457,7 @@ sminloc1_16_s4 (gfc_array_i16 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ sminloc1_16_s4 (gfc_array_i16 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c index bd24eaf..639838b 100644 --- a/libgfortran/generated/minloc1_4_i1.c +++ b/libgfortran/generated/minloc1_4_i1.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_i1 (gfc_array_i4 * const restrict, +extern void minloc1_4_i1 (gfc_array_i4 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_i1); void -minloc1_4_i1 (gfc_array_i4 * const restrict retarray, - gfc_array_i1 * const restrict array, +minloc1_4_i1 (gfc_array_i4 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_i1 (gfc_array_i4 * const restrict, +extern void mminloc1_4_i1 (gfc_array_i4 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_i1); void -mminloc1_4_i1 (gfc_array_i4 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_i1 (gfc_array_i4 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_i1 (gfc_array_i4 * const restrict, +extern void sminloc1_4_i1 (gfc_array_i4 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_i1); void -sminloc1_4_i1 (gfc_array_i4 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_i1 (gfc_array_i4 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c index 5a735a9..b86e3cc 100644 --- a/libgfortran/generated/minloc1_4_i16.c +++ b/libgfortran/generated/minloc1_4_i16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_i16 (gfc_array_i4 * const restrict, +extern void minloc1_4_i16 (gfc_array_i4 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_i16); void -minloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, +minloc1_4_i16 (gfc_array_i4 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_i16 (gfc_array_i4 * const restrict, +extern void mminloc1_4_i16 (gfc_array_i4 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_i16); void -mminloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_i16 (gfc_array_i4 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_i16 (gfc_array_i4 * const restrict, +extern void sminloc1_4_i16 (gfc_array_i4 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_i16); void -sminloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_i16 (gfc_array_i4 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c index 5328eef..8def21c 100644 --- a/libgfortran/generated/minloc1_4_i2.c +++ b/libgfortran/generated/minloc1_4_i2.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_i2 (gfc_array_i4 * const restrict, +extern void minloc1_4_i2 (gfc_array_i4 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_i2); void -minloc1_4_i2 (gfc_array_i4 * const restrict retarray, - gfc_array_i2 * const restrict array, +minloc1_4_i2 (gfc_array_i4 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_i2 (gfc_array_i4 * const restrict, +extern void mminloc1_4_i2 (gfc_array_i4 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_i2); void -mminloc1_4_i2 (gfc_array_i4 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_i2 (gfc_array_i4 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_i2 (gfc_array_i4 * const restrict, +extern void sminloc1_4_i2 (gfc_array_i4 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_i2); void -sminloc1_4_i2 (gfc_array_i4 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_i2 (gfc_array_i4 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index 84bd337..e42b9f8 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_i4 (gfc_array_i4 * const restrict, +extern void minloc1_4_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_i4); void -minloc1_4_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, +minloc1_4_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_i4 (gfc_array_i4 * const restrict, +extern void mminloc1_4_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_i4); void -mminloc1_4_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_i4 (gfc_array_i4 * const restrict, +extern void sminloc1_4_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_i4); void -sminloc1_4_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index 1425c39..cc9fa4c 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_i8 (gfc_array_i4 * const restrict, +extern void minloc1_4_i8 (gfc_array_i4 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_i8); void -minloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, +minloc1_4_i8 (gfc_array_i4 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_i8 (gfc_array_i4 * const restrict, +extern void mminloc1_4_i8 (gfc_array_i4 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_i8); void -mminloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_i8 (gfc_array_i4 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_i8 (gfc_array_i4 * const restrict, +extern void sminloc1_4_i8 (gfc_array_i4 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_i8); void -sminloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_i8 (gfc_array_i4 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c index 6a9eae4..65ce7b9 100644 --- a/libgfortran/generated/minloc1_4_r10.c +++ b/libgfortran/generated/minloc1_4_r10.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_r10 (gfc_array_i4 * const restrict, +extern void minloc1_4_r10 (gfc_array_i4 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_r10); void -minloc1_4_r10 (gfc_array_i4 * const restrict retarray, - gfc_array_r10 * const restrict array, +minloc1_4_r10 (gfc_array_i4 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_r10 (gfc_array_i4 * const restrict, +extern void mminloc1_4_r10 (gfc_array_i4 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_r10); void -mminloc1_4_r10 (gfc_array_i4 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_r10 (gfc_array_i4 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_r10 (gfc_array_i4 * const restrict, +extern void sminloc1_4_r10 (gfc_array_i4 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_r10); void -sminloc1_4_r10 (gfc_array_i4 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_r10 (gfc_array_i4 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c index 66c3017..ddd21c9 100644 --- a/libgfortran/generated/minloc1_4_r16.c +++ b/libgfortran/generated/minloc1_4_r16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_r16 (gfc_array_i4 * const restrict, +extern void minloc1_4_r16 (gfc_array_i4 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_r16); void -minloc1_4_r16 (gfc_array_i4 * const restrict retarray, - gfc_array_r16 * const restrict array, +minloc1_4_r16 (gfc_array_i4 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_r16 (gfc_array_i4 * const restrict, +extern void mminloc1_4_r16 (gfc_array_i4 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_r16); void -mminloc1_4_r16 (gfc_array_i4 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_r16 (gfc_array_i4 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_r16 (gfc_array_i4 * const restrict, +extern void sminloc1_4_r16 (gfc_array_i4 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_r16); void -sminloc1_4_r16 (gfc_array_i4 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_r16 (gfc_array_i4 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_r17.c b/libgfortran/generated/minloc1_4_r17.c index e600a43..0b90a10 100644 --- a/libgfortran/generated/minloc1_4_r17.c +++ b/libgfortran/generated/minloc1_4_r17.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_r17 (gfc_array_i4 * const restrict, +extern void minloc1_4_r17 (gfc_array_i4 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_r17); void -minloc1_4_r17 (gfc_array_i4 * const restrict retarray, - gfc_array_r17 * const restrict array, +minloc1_4_r17 (gfc_array_i4 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_r17 (gfc_array_i4 * const restrict, +extern void mminloc1_4_r17 (gfc_array_i4 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_r17); void -mminloc1_4_r17 (gfc_array_i4 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_r17 (gfc_array_i4 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_r17 (gfc_array_i4 * const restrict, +extern void sminloc1_4_r17 (gfc_array_i4 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_r17); void -sminloc1_4_r17 (gfc_array_i4 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_r17 (gfc_array_i4 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index a743d8d..0a68f2c 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_r4 (gfc_array_i4 * const restrict, +extern void minloc1_4_r4 (gfc_array_i4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_r4); void -minloc1_4_r4 (gfc_array_i4 * const restrict retarray, - gfc_array_r4 * const restrict array, +minloc1_4_r4 (gfc_array_i4 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_r4 (gfc_array_i4 * const restrict, +extern void mminloc1_4_r4 (gfc_array_i4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_r4); void -mminloc1_4_r4 (gfc_array_i4 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_r4 (gfc_array_i4 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_r4 (gfc_array_i4 * const restrict, +extern void sminloc1_4_r4 (gfc_array_i4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_r4); void -sminloc1_4_r4 (gfc_array_i4 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_r4 (gfc_array_i4 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index a3d399e3..b89deb5 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_4_r8 (gfc_array_i4 * const restrict, +extern void minloc1_4_r8 (gfc_array_i4 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_4_r8); void -minloc1_4_r8 (gfc_array_i4 * const restrict retarray, - gfc_array_r8 * const restrict array, +minloc1_4_r8 (gfc_array_i4 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray, } -extern void mminloc1_4_r8 (gfc_array_i4 * const restrict, +extern void mminloc1_4_r8 (gfc_array_i4 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_4_r8); void -mminloc1_4_r8 (gfc_array_i4 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +mminloc1_4_r8 (gfc_array_i4 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray, } -extern void sminloc1_4_r8 (gfc_array_i4 * const restrict, +extern void sminloc1_4_r8 (gfc_array_i4 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_4_r8); void -sminloc1_4_r8 (gfc_array_i4 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +sminloc1_4_r8 (gfc_array_i4 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_s1.c b/libgfortran/generated/minloc1_4_s1.c index 199d254..61dad55 100644 --- a/libgfortran/generated/minloc1_4_s1.c +++ b/libgfortran/generated/minloc1_4_s1.c @@ -457,7 +457,7 @@ sminloc1_4_s1 (gfc_array_i4 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ sminloc1_4_s1 (gfc_array_i4 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/minloc1_4_s4.c b/libgfortran/generated/minloc1_4_s4.c index 1f0174b..49c25d0 100644 --- a/libgfortran/generated/minloc1_4_s4.c +++ b/libgfortran/generated/minloc1_4_s4.c @@ -457,7 +457,7 @@ sminloc1_4_s4 (gfc_array_i4 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ sminloc1_4_s4 (gfc_array_i4 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c index 113725e..f4fa5a0 100644 --- a/libgfortran/generated/minloc1_8_i1.c +++ b/libgfortran/generated/minloc1_8_i1.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_i1 (gfc_array_i8 * const restrict, +extern void minloc1_8_i1 (gfc_array_i8 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_i1); void -minloc1_8_i1 (gfc_array_i8 * const restrict retarray, - gfc_array_i1 * const restrict array, +minloc1_8_i1 (gfc_array_i8 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_i1 (gfc_array_i8 * const restrict, +extern void mminloc1_8_i1 (gfc_array_i8 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_i1); void -mminloc1_8_i1 (gfc_array_i8 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_i1 (gfc_array_i8 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_i1 (gfc_array_i8 * const restrict, +extern void sminloc1_8_i1 (gfc_array_i8 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_i1); void -sminloc1_8_i1 (gfc_array_i8 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_i1 (gfc_array_i8 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c index 70ba7d5..73edefb 100644 --- a/libgfortran/generated/minloc1_8_i16.c +++ b/libgfortran/generated/minloc1_8_i16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_i16 (gfc_array_i8 * const restrict, +extern void minloc1_8_i16 (gfc_array_i8 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_i16); void -minloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, +minloc1_8_i16 (gfc_array_i8 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_i16 (gfc_array_i8 * const restrict, +extern void mminloc1_8_i16 (gfc_array_i8 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_i16); void -mminloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_i16 (gfc_array_i8 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_i16 (gfc_array_i8 * const restrict, +extern void sminloc1_8_i16 (gfc_array_i8 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_i16); void -sminloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_i16 (gfc_array_i8 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c index ed14464..126587c 100644 --- a/libgfortran/generated/minloc1_8_i2.c +++ b/libgfortran/generated/minloc1_8_i2.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_i2 (gfc_array_i8 * const restrict, +extern void minloc1_8_i2 (gfc_array_i8 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_i2); void -minloc1_8_i2 (gfc_array_i8 * const restrict retarray, - gfc_array_i2 * const restrict array, +minloc1_8_i2 (gfc_array_i8 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_i2 (gfc_array_i8 * const restrict, +extern void mminloc1_8_i2 (gfc_array_i8 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_i2); void -mminloc1_8_i2 (gfc_array_i8 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_i2 (gfc_array_i8 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_i2 (gfc_array_i8 * const restrict, +extern void sminloc1_8_i2 (gfc_array_i8 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_i2); void -sminloc1_8_i2 (gfc_array_i8 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_i2 (gfc_array_i8 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 47e0a98..eafbbe1 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_i4 (gfc_array_i8 * const restrict, +extern void minloc1_8_i4 (gfc_array_i8 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_i4); void -minloc1_8_i4 (gfc_array_i8 * const restrict retarray, - gfc_array_i4 * const restrict array, +minloc1_8_i4 (gfc_array_i8 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_i4 (gfc_array_i8 * const restrict, +extern void mminloc1_8_i4 (gfc_array_i8 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_i4); void -mminloc1_8_i4 (gfc_array_i8 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_i4 (gfc_array_i8 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_i4 (gfc_array_i8 * const restrict, +extern void sminloc1_8_i4 (gfc_array_i8 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_i4); void -sminloc1_8_i4 (gfc_array_i8 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_i4 (gfc_array_i8 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index 6e2b503..c806250 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_i8 (gfc_array_i8 * const restrict, +extern void minloc1_8_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_i8); void -minloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, +minloc1_8_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_i8 (gfc_array_i8 * const restrict, +extern void mminloc1_8_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_i8); void -mminloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_i8 (gfc_array_i8 * const restrict, +extern void sminloc1_8_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_i8); void -sminloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c index ef71261..5e87310 100644 --- a/libgfortran/generated/minloc1_8_r10.c +++ b/libgfortran/generated/minloc1_8_r10.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_r10 (gfc_array_i8 * const restrict, +extern void minloc1_8_r10 (gfc_array_i8 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_r10); void -minloc1_8_r10 (gfc_array_i8 * const restrict retarray, - gfc_array_r10 * const restrict array, +minloc1_8_r10 (gfc_array_i8 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_r10 (gfc_array_i8 * const restrict, +extern void mminloc1_8_r10 (gfc_array_i8 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_r10); void -mminloc1_8_r10 (gfc_array_i8 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_r10 (gfc_array_i8 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_r10 (gfc_array_i8 * const restrict, +extern void sminloc1_8_r10 (gfc_array_i8 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_r10); void -sminloc1_8_r10 (gfc_array_i8 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_r10 (gfc_array_i8 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c index b645a53..a0df1ba 100644 --- a/libgfortran/generated/minloc1_8_r16.c +++ b/libgfortran/generated/minloc1_8_r16.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_r16 (gfc_array_i8 * const restrict, +extern void minloc1_8_r16 (gfc_array_i8 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_r16); void -minloc1_8_r16 (gfc_array_i8 * const restrict retarray, - gfc_array_r16 * const restrict array, +minloc1_8_r16 (gfc_array_i8 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_r16 (gfc_array_i8 * const restrict, +extern void mminloc1_8_r16 (gfc_array_i8 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_r16); void -mminloc1_8_r16 (gfc_array_i8 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_r16 (gfc_array_i8 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_r16 (gfc_array_i8 * const restrict, +extern void sminloc1_8_r16 (gfc_array_i8 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_r16); void -sminloc1_8_r16 (gfc_array_i8 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_r16 (gfc_array_i8 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_r17.c b/libgfortran/generated/minloc1_8_r17.c index 51ccd09..023ecd3 100644 --- a/libgfortran/generated/minloc1_8_r17.c +++ b/libgfortran/generated/minloc1_8_r17.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_r17 (gfc_array_i8 * const restrict, +extern void minloc1_8_r17 (gfc_array_i8 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_r17); void -minloc1_8_r17 (gfc_array_i8 * const restrict retarray, - gfc_array_r17 * const restrict array, +minloc1_8_r17 (gfc_array_i8 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_r17 (gfc_array_i8 * const restrict, +extern void mminloc1_8_r17 (gfc_array_i8 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_r17); void -mminloc1_8_r17 (gfc_array_i8 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_r17 (gfc_array_i8 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_r17 (gfc_array_i8 * const restrict, +extern void sminloc1_8_r17 (gfc_array_i8 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_r17); void -sminloc1_8_r17 (gfc_array_i8 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_r17 (gfc_array_i8 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index 14e491f..b0d5d151 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_r4 (gfc_array_i8 * const restrict, +extern void minloc1_8_r4 (gfc_array_i8 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_r4); void -minloc1_8_r4 (gfc_array_i8 * const restrict retarray, - gfc_array_r4 * const restrict array, +minloc1_8_r4 (gfc_array_i8 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_r4 (gfc_array_i8 * const restrict, +extern void mminloc1_8_r4 (gfc_array_i8 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_r4); void -mminloc1_8_r4 (gfc_array_i8 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_r4 (gfc_array_i8 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_r4 (gfc_array_i8 * const restrict, +extern void sminloc1_8_r4 (gfc_array_i8 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_r4); void -sminloc1_8_r4 (gfc_array_i8 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_r4 (gfc_array_i8 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index 188a0cd..2b12a8a 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define HAVE_BACK_ARG 1 -extern void minloc1_8_r8 (gfc_array_i8 * const restrict, +extern void minloc1_8_r8 (gfc_array_i8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(minloc1_8_r8); void -minloc1_8_r8 (gfc_array_i8 * const restrict retarray, - gfc_array_r8 * const restrict array, +minloc1_8_r8 (gfc_array_i8 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -226,15 +226,15 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray, } -extern void mminloc1_8_r8 (gfc_array_i8 * const restrict, +extern void mminloc1_8_r8 (gfc_array_i8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict, GFC_LOGICAL_4 back); export_proto(mminloc1_8_r8); void -mminloc1_8_r8 (gfc_array_i8 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +mminloc1_8_r8 (gfc_array_i8 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; @@ -459,15 +459,15 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray, } -extern void sminloc1_8_r8 (gfc_array_i8 * const restrict, +extern void sminloc1_8_r8 (gfc_array_i8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *, GFC_LOGICAL_4 back); export_proto(sminloc1_8_r8); void -sminloc1_8_r8 (gfc_array_i8 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +sminloc1_8_r8 (gfc_array_i8 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_8_s1.c b/libgfortran/generated/minloc1_8_s1.c index 39bdb9b..c0ac6e6 100644 --- a/libgfortran/generated/minloc1_8_s1.c +++ b/libgfortran/generated/minloc1_8_s1.c @@ -457,7 +457,7 @@ sminloc1_8_s1 (gfc_array_i8 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ sminloc1_8_s1 (gfc_array_i8 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/minloc1_8_s4.c b/libgfortran/generated/minloc1_8_s4.c index ed74ac9..29624d0 100644 --- a/libgfortran/generated/minloc1_8_s4.c +++ b/libgfortran/generated/minloc1_8_s4.c @@ -457,7 +457,7 @@ sminloc1_8_s4 (gfc_array_i8 * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -465,8 +465,7 @@ sminloc1_8_s4 (gfc_array_i8 * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/generated/minloc2_16_s1.c b/libgfortran/generated/minloc2_16_s1.c index 6381ad6..9b4a92d 100644 --- a/libgfortran/generated/minloc2_16_s1.c +++ b/libgfortran/generated/minloc2_16_s1.c @@ -154,8 +154,8 @@ GFC_INTEGER_16 sminloc2_16_s1 (gfc_array_s1 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return minloc2_16_s1 (array, len, back); + if (mask == NULL || *mask) + return minloc2_16_s1 (array, back, len); else return 0; } diff --git a/libgfortran/generated/minloc2_16_s4.c b/libgfortran/generated/minloc2_16_s4.c index 11011b7..eac46fa 100644 --- a/libgfortran/generated/minloc2_16_s4.c +++ b/libgfortran/generated/minloc2_16_s4.c @@ -154,8 +154,8 @@ GFC_INTEGER_16 sminloc2_16_s4 (gfc_array_s4 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return minloc2_16_s4 (array, len, back); + if (mask == NULL || *mask) + return minloc2_16_s4 (array, back, len); else return 0; } diff --git a/libgfortran/generated/minloc2_4_s1.c b/libgfortran/generated/minloc2_4_s1.c index 631484a..bb22f6c 100644 --- a/libgfortran/generated/minloc2_4_s1.c +++ b/libgfortran/generated/minloc2_4_s1.c @@ -154,8 +154,8 @@ GFC_INTEGER_4 sminloc2_4_s1 (gfc_array_s1 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return minloc2_4_s1 (array, len, back); + if (mask == NULL || *mask) + return minloc2_4_s1 (array, back, len); else return 0; } diff --git a/libgfortran/generated/minloc2_4_s4.c b/libgfortran/generated/minloc2_4_s4.c index d606437..f3020d6 100644 --- a/libgfortran/generated/minloc2_4_s4.c +++ b/libgfortran/generated/minloc2_4_s4.c @@ -154,8 +154,8 @@ GFC_INTEGER_4 sminloc2_4_s4 (gfc_array_s4 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return minloc2_4_s4 (array, len, back); + if (mask == NULL || *mask) + return minloc2_4_s4 (array, back, len); else return 0; } diff --git a/libgfortran/generated/minloc2_8_s1.c b/libgfortran/generated/minloc2_8_s1.c index b02200b..04ec913 100644 --- a/libgfortran/generated/minloc2_8_s1.c +++ b/libgfortran/generated/minloc2_8_s1.c @@ -154,8 +154,8 @@ GFC_INTEGER_8 sminloc2_8_s1 (gfc_array_s1 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return minloc2_8_s1 (array, len, back); + if (mask == NULL || *mask) + return minloc2_8_s1 (array, back, len); else return 0; } diff --git a/libgfortran/generated/minloc2_8_s4.c b/libgfortran/generated/minloc2_8_s4.c index 9d33d13..fbb6d08 100644 --- a/libgfortran/generated/minloc2_8_s4.c +++ b/libgfortran/generated/minloc2_8_s4.c @@ -154,8 +154,8 @@ GFC_INTEGER_8 sminloc2_8_s4 (gfc_array_s4 * const restrict array, GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { - if (mask) - return minloc2_8_s4 (array, len, back); + if (mask == NULL || *mask) + return minloc2_8_s4 (array, back, len); else return 0; } diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c index f27dfa1..fcf70e0 100644 --- a/libgfortran/generated/minval_i1.c +++ b/libgfortran/generated/minval_i1.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1) -extern void minval_i1 (gfc_array_i1 * const restrict, +extern void minval_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict); export_proto(minval_i1); void -minval_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, +minval_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_i1 (gfc_array_i1 * const restrict retarray, } -extern void mminval_i1 (gfc_array_i1 * const restrict, +extern void mminval_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_i1); void -mminval_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +mminval_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_i1 (gfc_array_i1 * const restrict retarray, } -extern void sminval_i1 (gfc_array_i1 * const restrict, +extern void sminval_i1 (gfc_array_i1 * const restrict, gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_i1); void -sminval_i1 (gfc_array_i1 * const restrict retarray, - gfc_array_i1 * const restrict array, - const index_type * const restrict pdim, +sminval_i1 (gfc_array_i1 * const restrict retarray, + gfc_array_i1 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c index a1da874..e35fd99 100644 --- a/libgfortran/generated/minval_i16.c +++ b/libgfortran/generated/minval_i16.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16) -extern void minval_i16 (gfc_array_i16 * const restrict, +extern void minval_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict); export_proto(minval_i16); void -minval_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, +minval_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_i16 (gfc_array_i16 * const restrict retarray, } -extern void mminval_i16 (gfc_array_i16 * const restrict, +extern void mminval_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_i16); void -mminval_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mminval_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_i16 (gfc_array_i16 * const restrict retarray, } -extern void sminval_i16 (gfc_array_i16 * const restrict, +extern void sminval_i16 (gfc_array_i16 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_i16); void -sminval_i16 (gfc_array_i16 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +sminval_i16 (gfc_array_i16 * const restrict retarray, + gfc_array_i16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c index 2ea0e76..ac14b0e 100644 --- a/libgfortran/generated/minval_i2.c +++ b/libgfortran/generated/minval_i2.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2) -extern void minval_i2 (gfc_array_i2 * const restrict, +extern void minval_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict); export_proto(minval_i2); void -minval_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, +minval_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_i2 (gfc_array_i2 * const restrict retarray, } -extern void mminval_i2 (gfc_array_i2 * const restrict, +extern void mminval_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_i2); void -mminval_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +mminval_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_i2 (gfc_array_i2 * const restrict retarray, } -extern void sminval_i2 (gfc_array_i2 * const restrict, +extern void sminval_i2 (gfc_array_i2 * const restrict, gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_i2); void -sminval_i2 (gfc_array_i2 * const restrict retarray, - gfc_array_i2 * const restrict array, - const index_type * const restrict pdim, +sminval_i2 (gfc_array_i2 * const restrict retarray, + gfc_array_i2 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 30df475..b40edc6 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4) -extern void minval_i4 (gfc_array_i4 * const restrict, +extern void minval_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict); export_proto(minval_i4); void -minval_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, +minval_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_i4 (gfc_array_i4 * const restrict retarray, } -extern void mminval_i4 (gfc_array_i4 * const restrict, +extern void mminval_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_i4); void -mminval_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +mminval_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_i4 (gfc_array_i4 * const restrict retarray, } -extern void sminval_i4 (gfc_array_i4 * const restrict, +extern void sminval_i4 (gfc_array_i4 * const restrict, gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_i4); void -sminval_i4 (gfc_array_i4 * const restrict retarray, - gfc_array_i4 * const restrict array, - const index_type * const restrict pdim, +sminval_i4 (gfc_array_i4 * const restrict retarray, + gfc_array_i4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index 4da7202..4152132 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8) -extern void minval_i8 (gfc_array_i8 * const restrict, +extern void minval_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict); export_proto(minval_i8); void -minval_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, +minval_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_i8 (gfc_array_i8 * const restrict retarray, } -extern void mminval_i8 (gfc_array_i8 * const restrict, +extern void mminval_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_i8); void -mminval_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mminval_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_i8 (gfc_array_i8 * const restrict retarray, } -extern void sminval_i8 (gfc_array_i8 * const restrict, +extern void sminval_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_i8); void -sminval_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +sminval_i8 (gfc_array_i8 * const restrict retarray, + gfc_array_i8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c index b3b729d..0fc4121 100644 --- a/libgfortran/generated/minval_r10.c +++ b/libgfortran/generated/minval_r10.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10) -extern void minval_r10 (gfc_array_r10 * const restrict, +extern void minval_r10 (gfc_array_r10 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict); export_proto(minval_r10); void -minval_r10 (gfc_array_r10 * const restrict retarray, - gfc_array_r10 * const restrict array, +minval_r10 (gfc_array_r10 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_r10 (gfc_array_r10 * const restrict retarray, } -extern void mminval_r10 (gfc_array_r10 * const restrict, +extern void mminval_r10 (gfc_array_r10 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_r10); void -mminval_r10 (gfc_array_r10 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +mminval_r10 (gfc_array_r10 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_r10 (gfc_array_r10 * const restrict retarray, } -extern void sminval_r10 (gfc_array_r10 * const restrict, +extern void sminval_r10 (gfc_array_r10 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_r10); void -sminval_r10 (gfc_array_r10 * const restrict retarray, - gfc_array_r10 * const restrict array, - const index_type * const restrict pdim, +sminval_r10 (gfc_array_r10 * const restrict retarray, + gfc_array_r10 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c index 3137d05..4dedffd 100644 --- a/libgfortran/generated/minval_r16.c +++ b/libgfortran/generated/minval_r16.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16) -extern void minval_r16 (gfc_array_r16 * const restrict, +extern void minval_r16 (gfc_array_r16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict); export_proto(minval_r16); void -minval_r16 (gfc_array_r16 * const restrict retarray, - gfc_array_r16 * const restrict array, +minval_r16 (gfc_array_r16 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_r16 (gfc_array_r16 * const restrict retarray, } -extern void mminval_r16 (gfc_array_r16 * const restrict, +extern void mminval_r16 (gfc_array_r16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_r16); void -mminval_r16 (gfc_array_r16 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +mminval_r16 (gfc_array_r16 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_r16 (gfc_array_r16 * const restrict retarray, } -extern void sminval_r16 (gfc_array_r16 * const restrict, +extern void sminval_r16 (gfc_array_r16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_r16); void -sminval_r16 (gfc_array_r16 * const restrict retarray, - gfc_array_r16 * const restrict array, - const index_type * const restrict pdim, +sminval_r16 (gfc_array_r16 * const restrict retarray, + gfc_array_r16 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_r17.c b/libgfortran/generated/minval_r17.c index 3772fbe..efb4c65 100644 --- a/libgfortran/generated/minval_r17.c +++ b/libgfortran/generated/minval_r17.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_17) && defined (HAVE_GFC_REAL_17) -extern void minval_r17 (gfc_array_r17 * const restrict, +extern void minval_r17 (gfc_array_r17 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict); export_proto(minval_r17); void -minval_r17 (gfc_array_r17 * const restrict retarray, - gfc_array_r17 * const restrict array, +minval_r17 (gfc_array_r17 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_r17 (gfc_array_r17 * const restrict retarray, } -extern void mminval_r17 (gfc_array_r17 * const restrict, +extern void mminval_r17 (gfc_array_r17 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_r17); void -mminval_r17 (gfc_array_r17 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +mminval_r17 (gfc_array_r17 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_r17 (gfc_array_r17 * const restrict retarray, } -extern void sminval_r17 (gfc_array_r17 * const restrict, +extern void sminval_r17 (gfc_array_r17 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_r17); void -sminval_r17 (gfc_array_r17 * const restrict retarray, - gfc_array_r17 * const restrict array, - const index_type * const restrict pdim, +sminval_r17 (gfc_array_r17 * const restrict retarray, + gfc_array_r17 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index ecc054a..4370f4d 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4) -extern void minval_r4 (gfc_array_r4 * const restrict, +extern void minval_r4 (gfc_array_r4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict); export_proto(minval_r4); void -minval_r4 (gfc_array_r4 * const restrict retarray, - gfc_array_r4 * const restrict array, +minval_r4 (gfc_array_r4 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_r4 (gfc_array_r4 * const restrict retarray, } -extern void mminval_r4 (gfc_array_r4 * const restrict, +extern void mminval_r4 (gfc_array_r4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_r4); void -mminval_r4 (gfc_array_r4 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +mminval_r4 (gfc_array_r4 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_r4 (gfc_array_r4 * const restrict retarray, } -extern void sminval_r4 (gfc_array_r4 * const restrict, +extern void sminval_r4 (gfc_array_r4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_r4); void -sminval_r4 (gfc_array_r4 * const restrict retarray, - gfc_array_r4 * const restrict array, - const index_type * const restrict pdim, +sminval_r4 (gfc_array_r4 * const restrict retarray, + gfc_array_r4 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index 5e5ca79..bab37af 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8) -extern void minval_r8 (gfc_array_r8 * const restrict, +extern void minval_r8 (gfc_array_r8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict); export_proto(minval_r8); void -minval_r8 (gfc_array_r8 * const restrict retarray, - gfc_array_r8 * const restrict array, +minval_r8 (gfc_array_r8 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; @@ -202,15 +202,15 @@ minval_r8 (gfc_array_r8 * const restrict retarray, } -extern void mminval_r8 (gfc_array_r8 * const restrict, +extern void mminval_r8 (gfc_array_r8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, gfc_array_l1 * const restrict); export_proto(mminval_r8); void -mminval_r8 (gfc_array_r8 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +mminval_r8 (gfc_array_r8 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, gfc_array_l1 * const restrict mask) { index_type count[GFC_MAX_DIMENSIONS]; @@ -420,15 +420,15 @@ mminval_r8 (gfc_array_r8 * const restrict retarray, } -extern void sminval_r8 (gfc_array_r8 * const restrict, +extern void sminval_r8 (gfc_array_r8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 *); export_proto(sminval_r8); void -sminval_r8 (gfc_array_r8 * const restrict retarray, - gfc_array_r8 * const restrict array, - const index_type * const restrict pdim, +sminval_r8 (gfc_array_r8 * const restrict retarray, + gfc_array_r8 * const restrict array, + const index_type * const restrict pdim, GFC_LOGICAL_4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c index 98625a4..c879f54 100644 --- a/libgfortran/generated/norm2_r10.c +++ b/libgfortran/generated/norm2_r10.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define MATHFUNC(funcname) funcname ## l -extern void norm2_r10 (gfc_array_r10 * const restrict, +extern void norm2_r10 (gfc_array_r10 * const restrict, gfc_array_r10 * const restrict, const index_type * const restrict); export_proto(norm2_r10); void -norm2_r10 (gfc_array_r10 * const restrict retarray, - gfc_array_r10 * const restrict array, +norm2_r10 (gfc_array_r10 * const restrict retarray, + gfc_array_r10 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c index 62c5a40..84fbe3b 100644 --- a/libgfortran/generated/norm2_r16.c +++ b/libgfortran/generated/norm2_r16.c @@ -40,13 +40,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #endif -extern void norm2_r16 (gfc_array_r16 * const restrict, +extern void norm2_r16 (gfc_array_r16 * const restrict, gfc_array_r16 * const restrict, const index_type * const restrict); export_proto(norm2_r16); void -norm2_r16 (gfc_array_r16 * const restrict retarray, - gfc_array_r16 * const restrict array, +norm2_r16 (gfc_array_r16 * const restrict retarray, + gfc_array_r16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/norm2_r17.c b/libgfortran/generated/norm2_r17.c index 91fa704..72ad123 100644 --- a/libgfortran/generated/norm2_r17.c +++ b/libgfortran/generated/norm2_r17.c @@ -38,13 +38,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #endif -extern void norm2_r17 (gfc_array_r17 * const restrict, +extern void norm2_r17 (gfc_array_r17 * const restrict, gfc_array_r17 * const restrict, const index_type * const restrict); export_proto(norm2_r17); void -norm2_r17 (gfc_array_r17 * const restrict retarray, - gfc_array_r17 * const restrict array, +norm2_r17 (gfc_array_r17 * const restrict retarray, + gfc_array_r17 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c index 164963a..65ba982 100644 --- a/libgfortran/generated/norm2_r4.c +++ b/libgfortran/generated/norm2_r4.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define MATHFUNC(funcname) funcname ## f -extern void norm2_r4 (gfc_array_r4 * const restrict, +extern void norm2_r4 (gfc_array_r4 * const restrict, gfc_array_r4 * const restrict, const index_type * const restrict); export_proto(norm2_r4); void -norm2_r4 (gfc_array_r4 * const restrict retarray, - gfc_array_r4 * const restrict array, +norm2_r4 (gfc_array_r4 * const restrict retarray, + gfc_array_r4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c index fecf60e..c10e6a0 100644 --- a/libgfortran/generated/norm2_r8.c +++ b/libgfortran/generated/norm2_r8.c @@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #define MATHFUNC(funcname) funcname -extern void norm2_r8 (gfc_array_r8 * const restrict, +extern void norm2_r8 (gfc_array_r8 * const restrict, gfc_array_r8 * const restrict, const index_type * const restrict); export_proto(norm2_r8); void -norm2_r8 (gfc_array_r8 * const restrict retarray, - gfc_array_r8 * const restrict array, +norm2_r8 (gfc_array_r8 * const restrict retarray, + gfc_array_r8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c index 0e1007a..7d5bc912 100644 --- a/libgfortran/generated/parity_l1.c +++ b/libgfortran/generated/parity_l1.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_LOGICAL_1) && defined (HAVE_GFC_LOGICAL_1) -extern void parity_l1 (gfc_array_l1 * const restrict, +extern void parity_l1 (gfc_array_l1 * const restrict, gfc_array_l1 * const restrict, const index_type * const restrict); export_proto(parity_l1); void -parity_l1 (gfc_array_l1 * const restrict retarray, - gfc_array_l1 * const restrict array, +parity_l1 (gfc_array_l1 * const restrict retarray, + gfc_array_l1 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c index d0c1065..3276e1b 100644 --- a/libgfortran/generated/parity_l16.c +++ b/libgfortran/generated/parity_l16.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16) -extern void parity_l16 (gfc_array_l16 * const restrict, +extern void parity_l16 (gfc_array_l16 * const restrict, gfc_array_l16 * const restrict, const index_type * const restrict); export_proto(parity_l16); void -parity_l16 (gfc_array_l16 * const restrict retarray, - gfc_array_l16 * const restrict array, +parity_l16 (gfc_array_l16 * const restrict retarray, + gfc_array_l16 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c index bff60b2..1f12214 100644 --- a/libgfortran/generated/parity_l2.c +++ b/libgfortran/generated/parity_l2.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_LOGICAL_2) && defined (HAVE_GFC_LOGICAL_2) -extern void parity_l2 (gfc_array_l2 * const restrict, +extern void parity_l2 (gfc_array_l2 * const restrict, gfc_array_l2 * const restrict, const index_type * const restrict); export_proto(parity_l2); void -parity_l2 (gfc_array_l2 * const restrict retarray, - gfc_array_l2 * const restrict array, +parity_l2 (gfc_array_l2 * const restrict retarray, + gfc_array_l2 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c index 3ac03cb..dcc8cd4 100644 --- a/libgfortran/generated/parity_l4.c +++ b/libgfortran/generated/parity_l4.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4) -extern void parity_l4 (gfc_array_l4 * const restrict, +extern void parity_l4 (gfc_array_l4 * const restrict, gfc_array_l4 * const restrict, const index_type * const restrict); export_proto(parity_l4); void -parity_l4 (gfc_array_l4 * const restrict retarray, - gfc_array_l4 * const restrict array, +parity_l4 (gfc_array_l4 * const restrict retarray, + gfc_array_l4 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c index 6ce6a8b..dee33ac 100644 --- a/libgfortran/generated/parity_l8.c +++ b/libgfortran/generated/parity_l8.c @@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8) -extern void parity_l8 (gfc_array_l8 * const restrict, +extern void parity_l8 (gfc_array_l8 * const restrict, gfc_array_l8 * const restrict, const index_type * const restrict); export_proto(parity_l8); void -parity_l8 (gfc_array_l8 * const restrict retarray, - gfc_array_l8 * const restrict array, +parity_l8 (gfc_array_l8 * const restrict retarray, + gfc_array_l8 * const restrict array, const index_type * const restrict pdim) { index_type count[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/gfortran.map b/libgfortran/gfortran.map index 7725e12..742dddf 100644 --- a/libgfortran/gfortran.map +++ b/libgfortran/gfortran.map @@ -1786,7 +1786,6 @@ GFORTRAN_15 { _gfortran_arandom_m2; _gfortran_arandom_m4; _gfortran_arandom_m8; - _gfortran_arandom_m16; _gfortran_minval_m16; _gfortran_minval_m1; _gfortran_minval_m2; @@ -1832,7 +1831,6 @@ GFORTRAN_15 { _gfortran_maxloc0_8_m2; _gfortran_maxloc0_8_m4; _gfortran_maxloc0_8_m8; - _gfortran_maxloc1_16_m16; _gfortran_maxloc1_16_m1; _gfortran_maxloc1_16_m2; _gfortran_maxloc1_16_m4; @@ -1862,7 +1860,6 @@ GFORTRAN_15 { _gfortran_mmaxloc0_8_m2; _gfortran_mmaxloc0_8_m4; _gfortran_mmaxloc0_8_m8; - _gfortran_mmaxloc1_16_m16; _gfortran_mmaxloc1_16_m1; _gfortran_mmaxloc1_16_m2; _gfortran_mmaxloc1_16_m4; @@ -1892,7 +1889,6 @@ GFORTRAN_15 { _gfortran_smaxloc0_8_m2; _gfortran_smaxloc0_8_m4; _gfortran_smaxloc0_8_m8; - _gfortran_smaxloc1_16_m16; _gfortran_smaxloc1_16_m1; _gfortran_smaxloc1_16_m2; _gfortran_smaxloc1_16_m4; @@ -2028,3 +2024,11 @@ GFORTRAN_15 { _gfortran_reduce_c; _gfortran_reduce_scalar_c; } GFORTRAN_14; + +GFORTRAN_15.2 { + global: + _gfortran_arandom_m16; + _gfortran_maxloc1_16_m16; + _gfortran_mmaxloc1_16_m16; + _gfortran_smaxloc1_16_m16; +} GFORTRAN_15; diff --git a/libgfortran/intrinsics/random.c b/libgfortran/intrinsics/random.c index e0178bf..225eb60 100644 --- a/libgfortran/intrinsics/random.c +++ b/libgfortran/intrinsics/random.c @@ -1215,7 +1215,7 @@ arandom_m8 (gfc_array_m8 *x) } } -#ifdef GFC_HAVE_GFC_UINTEGER_16 +#ifdef HAVE_GFC_UINTEGER_16 /* Fill an unsigned array with random bytes. */ diff --git a/libgfortran/intrinsics/reduce.c b/libgfortran/intrinsics/reduce.c index c8950e4..256394f 100644 --- a/libgfortran/intrinsics/reduce.c +++ b/libgfortran/intrinsics/reduce.c @@ -52,14 +52,14 @@ reduce (parray *ret, index_type ext0, ext1, ext2; index_type str0, str1, str2; index_type idx0, idx1, idx2; - index_type dimen, dimen_m1, ldx; + index_type dimen, dimen_m1, ldx, ext, str; bool started; bool masked = false; bool dim_present = dim != NULL; bool mask_present = mask != NULL; bool identity_present = identity != NULL; bool scalar_result; - int i; + int i, j; int array_rank = (int)GFC_DESCRIPTOR_RANK (array); size_t elem_len = GFC_DESCRIPTOR_SIZE (array); @@ -83,8 +83,8 @@ reduce (parray *ret, if (dim_present) { if ((*dim < 1) || (*dim > (GFC_INTEGER_4)array_rank)) - runtime_error ("DIM in REDUCE intrinsic is less than 0 or greater than " - "the rank of ARRAY"); + runtime_error ("Mismatch between DIM and the rank of ARRAY in the " + "REDUCE intrinsic (%d/%d)", (int)*dim, array_rank); dimen = (index_type) *dim; } else @@ -99,33 +99,39 @@ reduce (parray *ret, scalar_result = (!dim_present && array_rank > 1) || array_rank == 1; + j = 0; for (i = 0; i < array_rank; i++) { /* Obtain the shape of the reshaped ARRAY. */ - index_type ext = GFC_DESCRIPTOR_EXTENT (array,i); - index_type str = GFC_DESCRIPTOR_STRIDE (array,i); + ext = GFC_DESCRIPTOR_EXTENT (array,i); + str = GFC_DESCRIPTOR_STRIDE (array,i); if (masked && (ext != GFC_DESCRIPTOR_EXTENT (mask, i))) - runtime_error ("shape mismatch between ARRAY and MASK in REDUCE " - "intrinsic"); + { + int mext = (int)GFC_DESCRIPTOR_EXTENT (mask, i); + runtime_error ("shape mismatch between ARRAY and MASK in the REDUCE " + "intrinsic (%zd/%d)", ext, mext); + } if (scalar_result) { ext1 *= ext; continue; } - else if (i < dimen_m1) + else if (i < (int)dimen_m1) ext0 *= ext; - else if (i == dimen_m1) + else if (i == (int)dimen_m1) ext1 = ext; else ext2 *= ext; /* The dimensions of the return array. */ - if (i < (int)(dimen - 1)) - GFC_DIMENSION_SET (ret->dim[i], 0, ext - 1, str); - else if (i < array_rank - 1) - GFC_DIMENSION_SET (ret->dim[i], 0, ext - 1, str); + if (i != (int)dimen_m1) + { + str = GFC_DESCRIPTOR_STRIDE (array, j); + GFC_DIMENSION_SET (ret->dim[j], 0, ext - 1, str); + j++; + } } if (!scalar_result) @@ -214,14 +220,13 @@ reduce (parray *ret, } -extern void reduce_scalar (void *, parray *, +extern void * reduce_scalar (parray *, void (*operation) (void *, void *, void *), GFC_INTEGER_4 *, gfc_array_l4 *, void *, void *); export_proto (reduce_scalar); -void -reduce_scalar (void *res, - parray *array, +void * +reduce_scalar (parray *array, void (*operation) (void *, void *, void *), GFC_INTEGER_4 *dim, gfc_array_l4 *mask, @@ -232,55 +237,63 @@ reduce_scalar (void *res, ret.base_addr = NULL; ret.dtype.rank = 0; reduce (&ret, array, operation, dim, mask, identity, ordered); - memcpy (res, ret.base_addr, GFC_DESCRIPTOR_SIZE (array)); - if (ret.base_addr) free (ret.base_addr); + return (void *)ret.base_addr; } -extern void reduce_c (parray *, index_type, parray *, +extern void reduce_c (parray *, gfc_charlen_type, parray *, void (*operation) (void *, void *, void *), GFC_INTEGER_4 *, gfc_array_l4 *, void *, void *, - index_type, index_type); + gfc_charlen_type, gfc_charlen_type); export_proto (reduce_c); void reduce_c (parray *ret, - index_type ret_strlen __attribute__ ((unused)), + gfc_charlen_type ret_strlen __attribute__ ((unused)), parray *array, void (*operation) (void *, void *, void *), GFC_INTEGER_4 *dim, gfc_array_l4 *mask, void *identity, void *ordered, - index_type array_strlen __attribute__ ((unused)), - index_type identity_strlen __attribute__ ((unused))) + gfc_charlen_type array_strlen __attribute__ ((unused)), + gfc_charlen_type identity_strlen __attribute__ ((unused))) { + /* The frontend constraints make string length checking redundant. Also, the + scalar symbol is flagged to be allocatable in trans-intrinsic.cc so that + gfc_conv_procedure_call does the necessary allocation/deallocation. */ reduce (ret, array, operation, dim, mask, identity, ordered); } -extern void reduce_scalar_c (void *, index_type, parray *, +extern void reduce_scalar_c (void *, gfc_charlen_type, parray *, void (*operation) (void *, void *, void *), GFC_INTEGER_4 *, gfc_array_l4 *, void *, void *, - index_type, index_type); + gfc_charlen_type, gfc_charlen_type); export_proto (reduce_scalar_c); void reduce_scalar_c (void *res, - index_type res_strlen __attribute__ ((unused)), + gfc_charlen_type res_strlen __attribute__ ((unused)), parray *array, void (*operation) (void *, void *, void *), GFC_INTEGER_4 *dim, gfc_array_l4 *mask, void *identity, void *ordered, - index_type array_strlen __attribute__ ((unused)), - index_type identity_strlen __attribute__ ((unused))) + gfc_charlen_type array_strlen __attribute__ ((unused)), + gfc_charlen_type identity_strlen __attribute__ ((unused))) { parray ret; ret.base_addr = NULL; ret.dtype.rank = 0; + /* The frontend constraints make string length checking redundant. */ reduce (&ret, array, operation, dim, mask, identity, ordered); - memcpy (res, ret.base_addr, GFC_DESCRIPTOR_SIZE (array)); - if (ret.base_addr) free (ret.base_addr); + if (res) + { + memcpy (res, ret.base_addr, GFC_DESCRIPTOR_SIZE (array)); + if (ret.base_addr) free (ret.base_addr); + } + else + res = ret.base_addr; } diff --git a/libgfortran/intrinsics/stat.c b/libgfortran/intrinsics/stat.c index 8d32f22..63a57cd 100644 --- a/libgfortran/intrinsics/stat.c +++ b/libgfortran/intrinsics/stat.c @@ -35,22 +35,22 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #ifdef HAVE_STAT -/* SUBROUTINE STAT(FILE, SARRAY, STATUS) +/* SUBROUTINE STAT(NAME, VALUES, STATUS) CHARACTER(len=*), INTENT(IN) :: FILE - INTEGER, INTENT(OUT), :: SARRAY(13) + INTEGER, INTENT(OUT), :: VALUES(13) INTEGER, INTENT(OUT), OPTIONAL :: STATUS - FUNCTION STAT(FILE, SARRAY) + FUNCTION STAT(NAME, VALUES) INTEGER STAT CHARACTER(len=*), INTENT(IN) :: FILE - INTEGER, INTENT(OUT), :: SARRAY(13) */ + INTEGER, INTENT(OUT), :: VALUES(13) */ /*extern void stat_i4_sub_0 (char *, gfc_array_i4 *, GFC_INTEGER_4 *, gfc_charlen_type, int); internal_proto(stat_i4_sub_0);*/ static void -stat_i4_sub_0 (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status, +stat_i4_sub_0 (char *name, gfc_array_i4 *values, GFC_INTEGER_4 *status, gfc_charlen_type name_len, int is_lstat __attribute__ ((unused))) { int val; @@ -58,12 +58,12 @@ stat_i4_sub_0 (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status, struct stat sb; /* If the rank of the array is not 1, abort. */ - if (GFC_DESCRIPTOR_RANK (sarray) != 1) - runtime_error ("Array rank of SARRAY is not 1."); + if (GFC_DESCRIPTOR_RANK (values) != 1) + runtime_error ("Array rank of VALUES is not 1."); /* If the array is too small, abort. */ - if (GFC_DESCRIPTOR_EXTENT(sarray,0) < 13) - runtime_error ("Array size of SARRAY is too small."); + if (GFC_DESCRIPTOR_EXTENT(values,0) < 13) + runtime_error ("Array size of VALUES is too small."); /* Make a null terminated copy of the string. */ str = fc_strdup (name, name_len); @@ -80,57 +80,70 @@ stat_i4_sub_0 (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status, if (val == 0) { - index_type stride = GFC_DESCRIPTOR_STRIDE(sarray,0); + index_type stride = GFC_DESCRIPTOR_STRIDE(values,0); + + /* Return -1 for any value overflowing INT32_MAX. */ + for (int i = 0; i < 13; i++) + values->base_addr[i * stride] = -1; /* Device ID */ - sarray->base_addr[0 * stride] = sb.st_dev; + if (sb.st_dev <= INT32_MAX) + values->base_addr[0 * stride] = sb.st_dev; /* Inode number */ - sarray->base_addr[1 * stride] = sb.st_ino; + if (sb.st_ino <= INT32_MAX) + values->base_addr[1 * stride] = sb.st_ino; /* File mode */ - sarray->base_addr[2 * stride] = sb.st_mode; + if (sb.st_mode <= INT32_MAX) + values->base_addr[2 * stride] = sb.st_mode; /* Number of (hard) links */ - sarray->base_addr[3 * stride] = sb.st_nlink; + if (sb.st_nlink <= INT32_MAX) + values->base_addr[3 * stride] = sb.st_nlink; /* Owner's uid */ - sarray->base_addr[4 * stride] = sb.st_uid; + if (sb.st_uid <= INT32_MAX) + values->base_addr[4 * stride] = sb.st_uid; /* Owner's gid */ - sarray->base_addr[5 * stride] = sb.st_gid; + if (sb.st_gid <= INT32_MAX) + values->base_addr[5 * stride] = sb.st_gid; /* ID of device containing directory entry for file (0 if not available) */ #if HAVE_STRUCT_STAT_ST_RDEV - sarray->base_addr[6 * stride] = sb.st_rdev; + if (sb.st_rdev <= INT32_MAX) + values->base_addr[6 * stride] = sb.st_rdev; #else - sarray->base_addr[6 * stride] = 0; + values->base_addr[6 * stride] = 0; #endif /* File size (bytes) */ - sarray->base_addr[7 * stride] = sb.st_size; + if (sb.st_size <= INT32_MAX) + values->base_addr[7 * stride] = sb.st_size; /* Last access time */ - sarray->base_addr[8 * stride] = sb.st_atime; + if (sb.st_atime <= INT32_MAX) + values->base_addr[8 * stride] = sb.st_atime; /* Last modification time */ - sarray->base_addr[9 * stride] = sb.st_mtime; + if (sb.st_mtime <= INT32_MAX) + values->base_addr[9 * stride] = sb.st_mtime; /* Last file status change time */ - sarray->base_addr[10 * stride] = sb.st_ctime; + if (sb.st_ctime <= INT32_MAX) + values->base_addr[10 * stride] = sb.st_ctime; /* Preferred I/O block size (-1 if not available) */ #if HAVE_STRUCT_STAT_ST_BLKSIZE - sarray->base_addr[11 * stride] = sb.st_blksize; -#else - sarray->base_addr[11 * stride] = -1; + if (sb.st_blksize <= INT32_MAX) + values->base_addr[11 * stride] = sb.st_blksize; #endif /* Number of blocks allocated (-1 if not available) */ #if HAVE_STRUCT_STAT_ST_BLOCKS - sarray->base_addr[12 * stride] = sb.st_blocks; -#else - sarray->base_addr[12 * stride] = -1; + if (sb.st_blocks <= INT32_MAX) + values->base_addr[12 * stride] = sb.st_blocks; #endif } @@ -144,10 +157,10 @@ extern void stat_i4_sub (char *, gfc_array_i4 *, GFC_INTEGER_4 *, iexport_proto(stat_i4_sub); void -stat_i4_sub (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status, +stat_i4_sub (char *name, gfc_array_i4 *values, GFC_INTEGER_4 *status, gfc_charlen_type name_len) { - stat_i4_sub_0 (name, sarray, status, name_len, 0); + stat_i4_sub_0 (name, values, status, name_len, 0); } iexport(stat_i4_sub); @@ -157,17 +170,17 @@ extern void lstat_i4_sub (char *, gfc_array_i4 *, GFC_INTEGER_4 *, iexport_proto(lstat_i4_sub); void -lstat_i4_sub (char *name, gfc_array_i4 *sarray, GFC_INTEGER_4 *status, +lstat_i4_sub (char *name, gfc_array_i4 *values, GFC_INTEGER_4 *status, gfc_charlen_type name_len) { - stat_i4_sub_0 (name, sarray, status, name_len, 1); + stat_i4_sub_0 (name, values, status, name_len, 1); } iexport(lstat_i4_sub); static void -stat_i8_sub_0 (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status, +stat_i8_sub_0 (char *name, gfc_array_i8 *values, GFC_INTEGER_8 *status, gfc_charlen_type name_len, int is_lstat __attribute__ ((unused))) { int val; @@ -175,12 +188,12 @@ stat_i8_sub_0 (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status, struct stat sb; /* If the rank of the array is not 1, abort. */ - if (GFC_DESCRIPTOR_RANK (sarray) != 1) - runtime_error ("Array rank of SARRAY is not 1."); + if (GFC_DESCRIPTOR_RANK (values) != 1) + runtime_error ("Array rank of VALUES is not 1."); /* If the array is too small, abort. */ - if (GFC_DESCRIPTOR_EXTENT(sarray,0) < 13) - runtime_error ("Array size of SARRAY is too small."); + if (GFC_DESCRIPTOR_EXTENT(values,0) < 13) + runtime_error ("Array size of VALUES is too small."); /* Make a null terminated copy of the string. */ str = fc_strdup (name, name_len); @@ -197,57 +210,57 @@ stat_i8_sub_0 (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status, if (val == 0) { - index_type stride = GFC_DESCRIPTOR_STRIDE(sarray,0); + index_type stride = GFC_DESCRIPTOR_STRIDE(values,0); /* Device ID */ - sarray->base_addr[0] = sb.st_dev; + values->base_addr[0] = sb.st_dev; /* Inode number */ - sarray->base_addr[stride] = sb.st_ino; + values->base_addr[stride] = sb.st_ino; /* File mode */ - sarray->base_addr[2 * stride] = sb.st_mode; + values->base_addr[2 * stride] = sb.st_mode; /* Number of (hard) links */ - sarray->base_addr[3 * stride] = sb.st_nlink; + values->base_addr[3 * stride] = sb.st_nlink; /* Owner's uid */ - sarray->base_addr[4 * stride] = sb.st_uid; + values->base_addr[4 * stride] = sb.st_uid; /* Owner's gid */ - sarray->base_addr[5 * stride] = sb.st_gid; + values->base_addr[5 * stride] = sb.st_gid; /* ID of device containing directory entry for file (0 if not available) */ #if HAVE_STRUCT_STAT_ST_RDEV - sarray->base_addr[6 * stride] = sb.st_rdev; + values->base_addr[6 * stride] = sb.st_rdev; #else - sarray->base_addr[6 * stride] = 0; + values->base_addr[6 * stride] = 0; #endif /* File size (bytes) */ - sarray->base_addr[7 * stride] = sb.st_size; + values->base_addr[7 * stride] = sb.st_size; /* Last access time */ - sarray->base_addr[8 * stride] = sb.st_atime; + values->base_addr[8 * stride] = sb.st_atime; /* Last modification time */ - sarray->base_addr[9 * stride] = sb.st_mtime; + values->base_addr[9 * stride] = sb.st_mtime; /* Last file status change time */ - sarray->base_addr[10 * stride] = sb.st_ctime; + values->base_addr[10 * stride] = sb.st_ctime; /* Preferred I/O block size (-1 if not available) */ #if HAVE_STRUCT_STAT_ST_BLKSIZE - sarray->base_addr[11 * stride] = sb.st_blksize; + values->base_addr[11 * stride] = sb.st_blksize; #else - sarray->base_addr[11 * stride] = -1; + values->base_addr[11 * stride] = -1; #endif /* Number of blocks allocated (-1 if not available) */ #if HAVE_STRUCT_STAT_ST_BLOCKS - sarray->base_addr[12 * stride] = sb.st_blocks; + values->base_addr[12 * stride] = sb.st_blocks; #else - sarray->base_addr[12 * stride] = -1; + values->base_addr[12 * stride] = -1; #endif } @@ -261,10 +274,10 @@ extern void stat_i8_sub (char *, gfc_array_i8 *, GFC_INTEGER_8 *, iexport_proto(stat_i8_sub); void -stat_i8_sub (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status, +stat_i8_sub (char *name, gfc_array_i8 *values, GFC_INTEGER_8 *status, gfc_charlen_type name_len) { - stat_i8_sub_0 (name, sarray, status, name_len, 0); + stat_i8_sub_0 (name, values, status, name_len, 0); } iexport(stat_i8_sub); @@ -275,10 +288,10 @@ extern void lstat_i8_sub (char *, gfc_array_i8 *, GFC_INTEGER_8 *, iexport_proto(lstat_i8_sub); void -lstat_i8_sub (char *name, gfc_array_i8 *sarray, GFC_INTEGER_8 *status, +lstat_i8_sub (char *name, gfc_array_i8 *values, GFC_INTEGER_8 *status, gfc_charlen_type name_len) { - stat_i8_sub_0 (name, sarray, status, name_len, 1); + stat_i8_sub_0 (name, values, status, name_len, 1); } iexport(lstat_i8_sub); @@ -288,10 +301,10 @@ extern GFC_INTEGER_4 stat_i4 (char *, gfc_array_i4 *, gfc_charlen_type); export_proto(stat_i4); GFC_INTEGER_4 -stat_i4 (char *name, gfc_array_i4 *sarray, gfc_charlen_type name_len) +stat_i4 (char *name, gfc_array_i4 *values, gfc_charlen_type name_len) { GFC_INTEGER_4 val; - stat_i4_sub (name, sarray, &val, name_len); + stat_i4_sub (name, values, &val, name_len); return val; } @@ -299,32 +312,32 @@ extern GFC_INTEGER_8 stat_i8 (char *, gfc_array_i8 *, gfc_charlen_type); export_proto(stat_i8); GFC_INTEGER_8 -stat_i8 (char *name, gfc_array_i8 *sarray, gfc_charlen_type name_len) +stat_i8 (char *name, gfc_array_i8 *values, gfc_charlen_type name_len) { GFC_INTEGER_8 val; - stat_i8_sub (name, sarray, &val, name_len); + stat_i8_sub (name, values, &val, name_len); return val; } -/* SUBROUTINE LSTAT(FILE, SARRAY, STATUS) +/* SUBROUTINE LSTAT(NAME, VALUES, STATUS) CHARACTER(len=*), INTENT(IN) :: FILE - INTEGER, INTENT(OUT), :: SARRAY(13) + INTEGER, INTENT(OUT), :: VALUES(13) INTEGER, INTENT(OUT), OPTIONAL :: STATUS - FUNCTION LSTAT(FILE, SARRAY) + FUNCTION LSTAT(NAME, VALUES) INTEGER LSTAT CHARACTER(len=*), INTENT(IN) :: FILE - INTEGER, INTENT(OUT), :: SARRAY(13) */ + INTEGER, INTENT(OUT), :: VALUES(13) */ extern GFC_INTEGER_4 lstat_i4 (char *, gfc_array_i4 *, gfc_charlen_type); export_proto(lstat_i4); GFC_INTEGER_4 -lstat_i4 (char *name, gfc_array_i4 *sarray, gfc_charlen_type name_len) +lstat_i4 (char *name, gfc_array_i4 *values, gfc_charlen_type name_len) { GFC_INTEGER_4 val; - lstat_i4_sub (name, sarray, &val, name_len); + lstat_i4_sub (name, values, &val, name_len); return val; } @@ -332,10 +345,10 @@ extern GFC_INTEGER_8 lstat_i8 (char *, gfc_array_i8 *, gfc_charlen_type); export_proto(lstat_i8); GFC_INTEGER_8 -lstat_i8 (char *name, gfc_array_i8 *sarray, gfc_charlen_type name_len) +lstat_i8 (char *name, gfc_array_i8 *values, gfc_charlen_type name_len) { GFC_INTEGER_8 val; - lstat_i8_sub (name, sarray, &val, name_len); + lstat_i8_sub (name, values, &val, name_len); return val; } @@ -344,32 +357,32 @@ lstat_i8 (char *name, gfc_array_i8 *sarray, gfc_charlen_type name_len) #ifdef HAVE_FSTAT -/* SUBROUTINE FSTAT(UNIT, SARRAY, STATUS) +/* SUBROUTINE FSTAT(UNIT, VALUES, STATUS) INTEGER, INTENT(IN) :: UNIT - INTEGER, INTENT(OUT) :: SARRAY(13) + INTEGER, INTENT(OUT) :: VALUES(13) INTEGER, INTENT(OUT), OPTIONAL :: STATUS - FUNCTION FSTAT(UNIT, SARRAY) + FUNCTION FSTAT(UNIT, VALUES) INTEGER FSTAT INTEGER, INTENT(IN) :: UNIT - INTEGER, INTENT(OUT) :: SARRAY(13) */ + INTEGER, INTENT(OUT) :: VALUES(13) */ extern void fstat_i4_sub (GFC_INTEGER_4 *, gfc_array_i4 *, GFC_INTEGER_4 *); iexport_proto(fstat_i4_sub); void -fstat_i4_sub (GFC_INTEGER_4 *unit, gfc_array_i4 *sarray, GFC_INTEGER_4 *status) +fstat_i4_sub (GFC_INTEGER_4 *unit, gfc_array_i4 *values, GFC_INTEGER_4 *status) { int val; struct stat sb; /* If the rank of the array is not 1, abort. */ - if (GFC_DESCRIPTOR_RANK (sarray) != 1) - runtime_error ("Array rank of SARRAY is not 1."); + if (GFC_DESCRIPTOR_RANK (values) != 1) + runtime_error ("Array rank of VALUES is not 1."); /* If the array is too small, abort. */ - if (GFC_DESCRIPTOR_EXTENT(sarray,0) < 13) - runtime_error ("Array size of SARRAY is too small."); + if (GFC_DESCRIPTOR_EXTENT(values,0) < 13) + runtime_error ("Array size of VALUES is too small."); /* Convert Fortran unit number to C file descriptor. */ val = unit_to_fd (*unit); @@ -378,57 +391,70 @@ fstat_i4_sub (GFC_INTEGER_4 *unit, gfc_array_i4 *sarray, GFC_INTEGER_4 *status) if (val == 0) { - index_type stride = GFC_DESCRIPTOR_STRIDE(sarray,0); + index_type stride = GFC_DESCRIPTOR_STRIDE(values,0); + + /* Return -1 for any value overflowing INT32_MAX. */ + for (int i = 0; i < 13; i++) + values->base_addr[i * stride] = -1; /* Device ID */ - sarray->base_addr[0 * stride] = sb.st_dev; + if (sb.st_dev <= INT32_MAX) + values->base_addr[0 * stride] = sb.st_dev; /* Inode number */ - sarray->base_addr[1 * stride] = sb.st_ino; + if (sb.st_ino <= INT32_MAX) + values->base_addr[1 * stride] = sb.st_ino; /* File mode */ - sarray->base_addr[2 * stride] = sb.st_mode; + if (sb.st_mode <= INT32_MAX) + values->base_addr[2 * stride] = sb.st_mode; /* Number of (hard) links */ - sarray->base_addr[3 * stride] = sb.st_nlink; + if (sb.st_nlink <= INT32_MAX) + values->base_addr[3 * stride] = sb.st_nlink; /* Owner's uid */ - sarray->base_addr[4 * stride] = sb.st_uid; + if (sb.st_uid <= INT32_MAX) + values->base_addr[4 * stride] = sb.st_uid; /* Owner's gid */ - sarray->base_addr[5 * stride] = sb.st_gid; + if (sb.st_gid <= INT32_MAX) + values->base_addr[5 * stride] = sb.st_gid; /* ID of device containing directory entry for file (0 if not available) */ #if HAVE_STRUCT_STAT_ST_RDEV - sarray->base_addr[6 * stride] = sb.st_rdev; + if (sb.st_rdev <= INT32_MAX) + values->base_addr[6 * stride] = sb.st_rdev; #else - sarray->base_addr[6 * stride] = 0; + values->base_addr[6 * stride] = 0; #endif /* File size (bytes) */ - sarray->base_addr[7 * stride] = sb.st_size; + if (sb.st_size <= INT32_MAX) + values->base_addr[7 * stride] = sb.st_size; /* Last access time */ - sarray->base_addr[8 * stride] = sb.st_atime; + if (sb.st_atime <= INT32_MAX) + values->base_addr[8 * stride] = sb.st_atime; /* Last modification time */ - sarray->base_addr[9 * stride] = sb.st_mtime; + if (sb.st_mtime <= INT32_MAX) + values->base_addr[9 * stride] = sb.st_mtime; /* Last file status change time */ - sarray->base_addr[10 * stride] = sb.st_ctime; + if (sb.st_ctime <= INT32_MAX) + values->base_addr[10 * stride] = sb.st_ctime; /* Preferred I/O block size (-1 if not available) */ #if HAVE_STRUCT_STAT_ST_BLKSIZE - sarray->base_addr[11 * stride] = sb.st_blksize; -#else - sarray->base_addr[11 * stride] = -1; + if (sb.st_blksize <= INT32_MAX) + values->base_addr[11 * stride] = sb.st_blksize; #endif /* Number of blocks allocated (-1 if not available) */ #if HAVE_STRUCT_STAT_ST_BLOCKS - sarray->base_addr[12 * stride] = sb.st_blocks; -#else - sarray->base_addr[12 * stride] = -1; + if (sb.st_blocks <= INT32_MAX) + values->base_addr[12 * stride] = sb.st_blocks; #endif } @@ -441,18 +467,18 @@ extern void fstat_i8_sub (GFC_INTEGER_8 *, gfc_array_i8 *, GFC_INTEGER_8 *); iexport_proto(fstat_i8_sub); void -fstat_i8_sub (GFC_INTEGER_8 *unit, gfc_array_i8 *sarray, GFC_INTEGER_8 *status) +fstat_i8_sub (GFC_INTEGER_8 *unit, gfc_array_i8 *values, GFC_INTEGER_8 *status) { int val; struct stat sb; /* If the rank of the array is not 1, abort. */ - if (GFC_DESCRIPTOR_RANK (sarray) != 1) - runtime_error ("Array rank of SARRAY is not 1."); + if (GFC_DESCRIPTOR_RANK (values) != 1) + runtime_error ("Array rank of VALUES is not 1."); /* If the array is too small, abort. */ - if (GFC_DESCRIPTOR_EXTENT(sarray,0) < 13) - runtime_error ("Array size of SARRAY is too small."); + if (GFC_DESCRIPTOR_EXTENT(values,0) < 13) + runtime_error ("Array size of VALUES is too small."); /* Convert Fortran unit number to C file descriptor. */ val = unit_to_fd ((int) *unit); @@ -461,57 +487,57 @@ fstat_i8_sub (GFC_INTEGER_8 *unit, gfc_array_i8 *sarray, GFC_INTEGER_8 *status) if (val == 0) { - index_type stride = GFC_DESCRIPTOR_STRIDE(sarray,0); + index_type stride = GFC_DESCRIPTOR_STRIDE(values,0); /* Device ID */ - sarray->base_addr[0] = sb.st_dev; + values->base_addr[0] = sb.st_dev; /* Inode number */ - sarray->base_addr[stride] = sb.st_ino; + values->base_addr[stride] = sb.st_ino; /* File mode */ - sarray->base_addr[2 * stride] = sb.st_mode; + values->base_addr[2 * stride] = sb.st_mode; /* Number of (hard) links */ - sarray->base_addr[3 * stride] = sb.st_nlink; + values->base_addr[3 * stride] = sb.st_nlink; /* Owner's uid */ - sarray->base_addr[4 * stride] = sb.st_uid; + values->base_addr[4 * stride] = sb.st_uid; /* Owner's gid */ - sarray->base_addr[5 * stride] = sb.st_gid; + values->base_addr[5 * stride] = sb.st_gid; /* ID of device containing directory entry for file (0 if not available) */ #if HAVE_STRUCT_STAT_ST_RDEV - sarray->base_addr[6 * stride] = sb.st_rdev; + values->base_addr[6 * stride] = sb.st_rdev; #else - sarray->base_addr[6 * stride] = 0; + values->base_addr[6 * stride] = 0; #endif /* File size (bytes) */ - sarray->base_addr[7 * stride] = sb.st_size; + values->base_addr[7 * stride] = sb.st_size; /* Last access time */ - sarray->base_addr[8 * stride] = sb.st_atime; + values->base_addr[8 * stride] = sb.st_atime; /* Last modification time */ - sarray->base_addr[9 * stride] = sb.st_mtime; + values->base_addr[9 * stride] = sb.st_mtime; /* Last file status change time */ - sarray->base_addr[10 * stride] = sb.st_ctime; + values->base_addr[10 * stride] = sb.st_ctime; /* Preferred I/O block size (-1 if not available) */ #if HAVE_STRUCT_STAT_ST_BLKSIZE - sarray->base_addr[11 * stride] = sb.st_blksize; + values->base_addr[11 * stride] = sb.st_blksize; #else - sarray->base_addr[11 * stride] = -1; + values->base_addr[11 * stride] = -1; #endif /* Number of blocks allocated (-1 if not available) */ #if HAVE_STRUCT_STAT_ST_BLOCKS - sarray->base_addr[12 * stride] = sb.st_blocks; + values->base_addr[12 * stride] = sb.st_blocks; #else - sarray->base_addr[12 * stride] = -1; + values->base_addr[12 * stride] = -1; #endif } @@ -524,10 +550,10 @@ extern GFC_INTEGER_4 fstat_i4 (GFC_INTEGER_4 *, gfc_array_i4 *); export_proto(fstat_i4); GFC_INTEGER_4 -fstat_i4 (GFC_INTEGER_4 *unit, gfc_array_i4 *sarray) +fstat_i4 (GFC_INTEGER_4 *unit, gfc_array_i4 *values) { GFC_INTEGER_4 val; - fstat_i4_sub (unit, sarray, &val); + fstat_i4_sub (unit, values, &val); return val; } @@ -535,10 +561,10 @@ extern GFC_INTEGER_8 fstat_i8 (GFC_INTEGER_8 *, gfc_array_i8 *); export_proto(fstat_i8); GFC_INTEGER_8 -fstat_i8 (GFC_INTEGER_8 *unit, gfc_array_i8 *sarray) +fstat_i8 (GFC_INTEGER_8 *unit, gfc_array_i8 *values) { GFC_INTEGER_8 val; - fstat_i8_sub (unit, sarray, &val); + fstat_i8_sub (unit, values, &val); return val; } diff --git a/libgfortran/io/close.c b/libgfortran/io/close.c index 8122311..41d278c 100644 --- a/libgfortran/io/close.c +++ b/libgfortran/io/close.c @@ -84,8 +84,17 @@ st_close (st_parameter_close *clp) if (u != NULL) { - if (close_share (u) < 0) - generate_error (&clp->common, LIBERROR_OS, "Problem in CLOSE"); + if (u->s == NULL) + { + if (u->unit_number < 0) + generate_error (&clp->common, LIBERROR_BAD_UNIT, + "Unit number is negative with no associated file"); + library_end (); + return; + } + else + if (close_share (u) < 0) + generate_error (&clp->common, LIBERROR_OS, "Problem in CLOSE"); if (u->flags.status == STATUS_SCRATCH) { if (status == CLOSE_KEEP) diff --git a/libgfortran/io/format.c b/libgfortran/io/format.c index eef1d34..87e21a9 100644 --- a/libgfortran/io/format.c +++ b/libgfortran/io/format.c @@ -1235,9 +1235,9 @@ parse_format_list (st_parameter_dt *dtp, bool *seen_dd) default: /* Assume a missing comma with -std=legacy, GNU extension. */ - if (compile_options.warn_std == 0) - goto format_item_1; - format_error (dtp, tail, comma_missing); + if (compile_options.warn_std != 0) + fmt->error = comma_missing; + goto format_item_1; } /* Optional comma is a weird between state where we've just finished @@ -1252,7 +1252,7 @@ parse_format_list (st_parameter_dt *dtp, bool *seen_dd) case FMT_RPAREN: goto finished; - default: /* Assume that we have another format item */ + default: /* Assume that we have another format item */ fmt->saved_token = t; break; } @@ -1419,7 +1419,7 @@ parse_format (st_parameter_dt *dtp) else fmt->error = "Missing initial left parenthesis in format"; - if (format_cache_ok) + if (format_cache_ok && !fmt->error) save_parsed_format (dtp); else dtp->u.p.format_not_saved = 1; diff --git a/libgfortran/io/open.c b/libgfortran/io/open.c index 06ddf7f..e9fb0a7 100644 --- a/libgfortran/io/open.c +++ b/libgfortran/io/open.c @@ -912,6 +912,16 @@ st_open (st_parameter_open *opp) library_end (); return; } + + if (u->s == NULL) + { + unlock_unit (u); + generate_error (&opp->common, LIBERROR_BAD_OPTION, + "Unit number is negative and unit was not already " + "opened with OPEN(NEWUNIT=...)"); + library_end (); + return; + } } if (u == NULL) diff --git a/libgfortran/io/read.c b/libgfortran/io/read.c index a8a6a69..e34d31b 100644 --- a/libgfortran/io/read.c +++ b/libgfortran/io/read.c @@ -1375,7 +1375,7 @@ exponent: /* At this point a digit string is required. We calculate the value of the exponent in order to take account of the scale factor and - the d parameter before explict conversion takes place. */ + the d parameter before explicit conversion takes place. */ if (w == 0) { diff --git a/libgfortran/m4/ifindloc2.m4 b/libgfortran/m4/ifindloc2.m4 index c6f909a..d309d8b 100644 --- a/libgfortran/m4/ifindloc2.m4 +++ b/libgfortran/m4/ifindloc2.m4 @@ -41,7 +41,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see if (back) { src = array->base_addr + (extent - 1) * sstride; - for (i = extent; i >= 0; i--) + for (i = extent; i > 0; i--) { if ('comparison`'`) return i; @@ -94,7 +94,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see { src = array->base_addr + (extent - 1) * sstride; mbase += (extent - 1) * mstride; - for (i = extent; i >= 0; i--) + for (i = extent; i > 0; i--) { if (*mbase && ('comparison`'`)) return i; diff --git a/libgfortran/m4/ifunction-s.m4 b/libgfortran/m4/ifunction-s.m4 index 8275f65..22182e9 100644 --- a/libgfortran/m4/ifunction-s.m4 +++ b/libgfortran/m4/ifunction-s.m4 @@ -421,7 +421,7 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, for (n = 0; n < dim; n++) { - extent[n] = GFC_DESCRIPTOR_EXTENT(array,n) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n); if (extent[n] <= 0) extent[n] = 0; @@ -429,8 +429,7 @@ s'name`'rtype_qual`_'atype_code` ('rtype` * const restrict retarray, for (n = dim; n < rank; n++) { - extent[n] = - GFC_DESCRIPTOR_EXTENT(array,n + 1) * string_len; + extent[n] = GFC_DESCRIPTOR_EXTENT(array,n + 1); if (extent[n] <= 0) extent[n] = 0; diff --git a/libgfortran/m4/iparm.m4 b/libgfortran/m4/iparm.m4 index 0c4c76c..2d6a376 100644 --- a/libgfortran/m4/iparm.m4 +++ b/libgfortran/m4/iparm.m4 @@ -28,7 +28,7 @@ define_type(rtype, rtype_tmp)dnl define(rtype_qual,`_'rtype_kind)dnl ')dnl define(atype_max, atype_name`_HUGE')dnl -define(atype_min,ifelse(regexp(file, `_\(.\)[0-9]*\.c$', `\1'),`i',`(-'atype_max`-1)',`-'atype_max))dnl +define(atype_min,ifelse(index(atype_name,`GFC_UINTEGER'),0,`0',ifelse(regexp(file, `_\(.\)[0-9]*\.c$', `\1'),`i',`(-'atype_max`-1)',`-'atype_max)))dnl define(atype_inf, atype_name`_INFINITY')dnl define(atype_nan, atype_name`_QUIET_NAN')dnl define(name, regexp(regexp(file, `[^/]*$', `\&'), `^\([^_]*\)_', `\1'))dnl diff --git a/libgfortran/m4/maxloc2s.m4 b/libgfortran/m4/maxloc2s.m4 index 49ecae7..b6070b4 100644 --- a/libgfortran/m4/maxloc2s.m4 +++ b/libgfortran/m4/maxloc2s.m4 @@ -153,8 +153,8 @@ export_proto(s'name`'rtype_qual`_'atype_code`); s'name`'rtype_qual`_'atype_code` ('atype` * const restrict array, GFC_LOGICAL_4 *mask'back_arg`, gfc_charlen_type len) { - if (mask) - return 'name`'rtype_qual`_'atype_code` (array, len, back); + if (mask == NULL || *mask) + return 'name`'rtype_qual`_'atype_code` (array, back, len); else return 0; } diff --git a/libgfortran/m4/minloc2s.m4 b/libgfortran/m4/minloc2s.m4 index 8e7b4ab..9524fc4 100644 --- a/libgfortran/m4/minloc2s.m4 +++ b/libgfortran/m4/minloc2s.m4 @@ -155,8 +155,8 @@ export_proto(s'name`'rtype_qual`_'atype_code`); s'name`'rtype_qual`_'atype_code` ('atype` * const restrict array, GFC_LOGICAL_4 *mask'back_arg`, gfc_charlen_type len) { - if (mask) - return 'name`'rtype_qual`_'atype_code` (array, len, back); + if (mask == NULL || *mask) + return 'name`'rtype_qual`_'atype_code` (array, back, len); else return 0; } diff --git a/libgfortran/regenerate.sh b/libgfortran/regenerate.sh new file mode 100755 index 0000000..a016034 --- /dev/null +++ b/libgfortran/regenerate.sh @@ -0,0 +1,1250 @@ +#!/bin/sh + +# Unless the user specified their desired m4 implementation through the +# M4 environment variable, find a GNU M4 in the PATH. + +if [ -z "$M4" ] ; then + for prog in gm4 gnum4 m4 ; do + if $prog --version 2>/dev/null | grep -q 'GNU M4' ; then + M4=${prog} + break + fi + done +fi + +if [ -z "$M4" ] ; then + echo "GNU M4 not found" + exit 1 +else + echo "Found GNU M4: ${M4}" +fi + +# Make sure we run in the correct directory + +if [ ! -e "./m4/pow.m4" ] ; then + echo "This script should be run in the libgfortran/ directory" + exit 1 +fi + + +i_all_c=" +generated/all_l1.c +generated/all_l2.c +generated/all_l4.c +generated/all_l8.c +generated/all_l16.c +" + +i_any_c=" +generated/any_l1.c +generated/any_l2.c +generated/any_l4.c +generated/any_l8.c +generated/any_l16.c +" + +i_bessel_c=" +generated/bessel_r4.c +generated/bessel_r8.c +generated/bessel_r10.c +generated/bessel_r16.c +generated/bessel_r17.c +" + +i_count_c=" +generated/count_1_l.c +generated/count_2_l.c +generated/count_4_l.c +generated/count_8_l.c +generated/count_16_l.c +" + +i_iall_c=" +generated/iall_i1.c +generated/iall_i2.c +generated/iall_i4.c +generated/iall_i8.c +generated/iall_i16.c +" + +i_iany_c=" +generated/iany_i1.c +generated/iany_i2.c +generated/iany_i4.c +generated/iany_i8.c +generated/iany_i16.c +" + +i_iparity_c=" +generated/iparity_i1.c +generated/iparity_i2.c +generated/iparity_i4.c +generated/iparity_i8.c +generated/iparity_i16.c +" + +i_findloc0_c=" +generated/findloc0_i1.c +generated/findloc0_i2.c +generated/findloc0_i4.c +generated/findloc0_i8.c +generated/findloc0_i16.c +generated/findloc0_r4.c +generated/findloc0_r8.c +generated/findloc0_r10.c +generated/findloc0_r16.c +generated/findloc0_r17.c +generated/findloc0_c4.c +generated/findloc0_c8.c +generated/findloc0_c10.c +generated/findloc0_c16.c +generated/findloc0_c17.c +" + +i_findloc0s_c=" +generated/findloc0_s1.c +generated/findloc0_s4.c +" + +i_findloc1_c=" +generated/findloc1_i1.c +generated/findloc1_i2.c +generated/findloc1_i4.c +generated/findloc1_i8.c +generated/findloc1_i16.c +generated/findloc1_r4.c +generated/findloc1_r8.c +generated/findloc1_r10.c +generated/findloc1_r16.c +generated/findloc1_r17.c +generated/findloc1_c4.c +generated/findloc1_c8.c +generated/findloc1_c10.c +generated/findloc1_c16.c +generated/findloc1_c17.c +" + +i_findloc1s_c=" +generated/findloc1_s1.c +generated/findloc1_s4.c +" + +i_findloc2s_c=" +generated/findloc2_s1.c +generated/findloc2_s4.c +" + +i_maxloc0_c=" +generated/maxloc0_4_i1.c +generated/maxloc0_8_i1.c +generated/maxloc0_16_i1.c +generated/maxloc0_4_i2.c +generated/maxloc0_8_i2.c +generated/maxloc0_16_i2.c +generated/maxloc0_4_i4.c +generated/maxloc0_8_i4.c +generated/maxloc0_16_i4.c +generated/maxloc0_4_i8.c +generated/maxloc0_8_i8.c +generated/maxloc0_16_i8.c +generated/maxloc0_4_i16.c +generated/maxloc0_8_i16.c +generated/maxloc0_16_i16.c +generated/maxloc0_4_m1.c +generated/maxloc0_8_m1.c +generated/maxloc0_16_m1.c +generated/maxloc0_4_m2.c +generated/maxloc0_8_m2.c +generated/maxloc0_16_m2.c +generated/maxloc0_4_m4.c +generated/maxloc0_8_m4.c +generated/maxloc0_16_m4.c +generated/maxloc0_4_m8.c +generated/maxloc0_8_m8.c +generated/maxloc0_16_m8.c +generated/maxloc0_4_m16.c +generated/maxloc0_8_m16.c +generated/maxloc0_16_m16.c +generated/maxloc0_4_r4.c +generated/maxloc0_8_r4.c +generated/maxloc0_16_r4.c +generated/maxloc0_4_r8.c +generated/maxloc0_8_r8.c +generated/maxloc0_16_r8.c +generated/maxloc0_4_r10.c +generated/maxloc0_8_r10.c +generated/maxloc0_16_r10.c +generated/maxloc0_4_r16.c +generated/maxloc0_8_r16.c +generated/maxloc0_16_r16.c +generated/maxloc0_4_r17.c +generated/maxloc0_8_r17.c +generated/maxloc0_16_r17.c +" + +i_maxloc0s_c=" +generated/maxloc0_4_s1.c +generated/maxloc0_4_s4.c +generated/maxloc0_8_s1.c +generated/maxloc0_8_s4.c +generated/maxloc0_16_s1.c +generated/maxloc0_16_s4.c +" + +i_maxloc1_c=" +generated/maxloc1_4_i1.c +generated/maxloc1_8_i1.c +generated/maxloc1_16_i1.c +generated/maxloc1_4_i2.c +generated/maxloc1_8_i2.c +generated/maxloc1_16_i2.c +generated/maxloc1_4_i4.c +generated/maxloc1_8_i4.c +generated/maxloc1_16_i4.c +generated/maxloc1_4_i8.c +generated/maxloc1_8_i8.c +generated/maxloc1_16_i8.c +generated/maxloc1_4_i16.c +generated/maxloc1_8_i16.c +generated/maxloc1_16_i16.c +generated/maxloc1_4_m1.c +generated/maxloc1_8_m1.c +generated/maxloc1_16_m1.c +generated/maxloc1_4_m2.c +generated/maxloc1_8_m2.c +generated/maxloc1_16_m2.c +generated/maxloc1_4_m4.c +generated/maxloc1_8_m4.c +generated/maxloc1_16_m4.c +generated/maxloc1_4_m8.c +generated/maxloc1_8_m8.c +generated/maxloc1_16_m8.c +generated/maxloc1_4_m16.c +generated/maxloc1_8_m16.c +generated/maxloc1_16_m16.c +generated/maxloc1_4_r4.c +generated/maxloc1_8_r4.c +generated/maxloc1_16_r4.c +generated/maxloc1_4_r8.c +generated/maxloc1_8_r8.c +generated/maxloc1_16_r8.c +generated/maxloc1_4_r10.c +generated/maxloc1_8_r10.c +generated/maxloc1_16_r10.c +generated/maxloc1_4_r16.c +generated/maxloc1_8_r16.c +generated/maxloc1_16_r16.c +generated/maxloc1_4_r17.c +generated/maxloc1_8_r17.c +generated/maxloc1_16_r17.c +" + +i_maxloc1s_c=" +generated/maxloc1_4_s1.c +generated/maxloc1_4_s4.c +generated/maxloc1_8_s1.c +generated/maxloc1_8_s4.c +generated/maxloc1_16_s1.c +generated/maxloc1_16_s4.c +" + +i_maxloc2s_c=" +generated/maxloc2_4_s1.c +generated/maxloc2_4_s4.c +generated/maxloc2_8_s1.c +generated/maxloc2_8_s4.c +generated/maxloc2_16_s1.c +generated/maxloc2_16_s4.c +" + +i_maxval_c=" +generated/maxval_i1.c +generated/maxval_i2.c +generated/maxval_i4.c +generated/maxval_i8.c +generated/maxval_i16.c +generated/maxval_m1.c +generated/maxval_m2.c +generated/maxval_m4.c +generated/maxval_m8.c +generated/maxval_m16.c +generated/maxval_r4.c +generated/maxval_r8.c +generated/maxval_r10.c +generated/maxval_r16.c +generated/maxval_r17.c +" + +i_maxval0s_c=" +generated/maxval0_s1.c +generated/maxval0_s4.c +" + +i_maxval1s_c=" +generated/maxval1_s1.c +generated/maxval1_s4.c +" + +i_minloc0_c=" +generated/minloc0_4_i1.c +generated/minloc0_8_i1.c +generated/minloc0_16_i1.c +generated/minloc0_4_i2.c +generated/minloc0_8_i2.c +generated/minloc0_16_i2.c +generated/minloc0_4_i4.c +generated/minloc0_8_i4.c +generated/minloc0_16_i4.c +generated/minloc0_4_i8.c +generated/minloc0_8_i8.c +generated/minloc0_16_i8.c +generated/minloc0_4_i16.c +generated/minloc0_8_i16.c +generated/minloc0_16_i16.c +generated/minloc0_4_m1.c +generated/minloc0_8_m1.c +generated/minloc0_16_m1.c +generated/minloc0_4_m2.c +generated/minloc0_8_m2.c +generated/minloc0_16_m2.c +generated/minloc0_4_m4.c +generated/minloc0_8_m4.c +generated/minloc0_16_m4.c +generated/minloc0_4_m8.c +generated/minloc0_8_m8.c +generated/minloc0_16_m8.c +generated/minloc0_4_m16.c +generated/minloc0_8_m16.c +generated/minloc0_16_m16.c +generated/minloc0_4_r4.c +generated/minloc0_8_r4.c +generated/minloc0_16_r4.c +generated/minloc0_4_r8.c +generated/minloc0_8_r8.c +generated/minloc0_16_r8.c +generated/minloc0_4_r10.c +generated/minloc0_8_r10.c +generated/minloc0_16_r10.c +generated/minloc0_4_r16.c +generated/minloc0_8_r16.c +generated/minloc0_16_r16.c +generated/minloc0_4_r17.c +generated/minloc0_8_r17.c +generated/minloc0_16_r17.c +" + +i_minloc0s_c=" +generated/minloc0_4_s1.c +generated/minloc0_4_s4.c +generated/minloc0_8_s1.c +generated/minloc0_8_s4.c +generated/minloc0_16_s1.c +generated/minloc0_16_s4.c +" + +i_minloc1_c=" +generated/minloc1_4_i1.c +generated/minloc1_8_i1.c +generated/minloc1_16_i1.c +generated/minloc1_4_i2.c +generated/minloc1_8_i2.c +generated/minloc1_16_i2.c +generated/minloc1_4_i4.c +generated/minloc1_8_i4.c +generated/minloc1_16_i4.c +generated/minloc1_4_i8.c +generated/minloc1_8_i8.c +generated/minloc1_16_i8.c +generated/minloc1_4_i16.c +generated/minloc1_8_i16.c +generated/minloc1_16_i16.c +generated/minloc1_4_m1.c +generated/minloc1_8_m1.c +generated/minloc1_16_m1.c +generated/minloc1_4_m2.c +generated/minloc1_8_m2.c +generated/minloc1_16_m2.c +generated/minloc1_4_m4.c +generated/minloc1_8_m4.c +generated/minloc1_16_m4.c +generated/minloc1_4_m8.c +generated/minloc1_8_m8.c +generated/minloc1_16_m8.c +generated/minloc1_4_m16.c +generated/minloc1_8_m16.c +generated/minloc1_16_m16.c +generated/minloc1_4_r4.c +generated/minloc1_8_r4.c +generated/minloc1_16_r4.c +generated/minloc1_4_r8.c +generated/minloc1_8_r8.c +generated/minloc1_16_r8.c +generated/minloc1_4_r10.c +generated/minloc1_8_r10.c +generated/minloc1_16_r10.c +generated/minloc1_4_r16.c +generated/minloc1_8_r16.c +generated/minloc1_16_r16.c +generated/minloc1_4_r17.c +generated/minloc1_8_r17.c +generated/minloc1_16_r17.c +" +i_minloc1s_c=" +generated/minloc1_4_s1.c +generated/minloc1_4_s4.c +generated/minloc1_8_s1.c +generated/minloc1_8_s4.c +generated/minloc1_16_s1.c +generated/minloc1_16_s4.c +" + +i_minloc2s_c=" +generated/minloc2_4_s1.c +generated/minloc2_4_s4.c +generated/minloc2_8_s1.c +generated/minloc2_8_s4.c +generated/minloc2_16_s1.c +generated/minloc2_16_s4.c +" + +i_minval_c=" +generated/minval_i1.c +generated/minval_i2.c +generated/minval_i4.c +generated/minval_i8.c +generated/minval_i16.c +generated/minval_m1.c +generated/minval_m2.c +generated/minval_m4.c +generated/minval_m8.c +generated/minval_m16.c +generated/minval_r4.c +generated/minval_r8.c +generated/minval_r10.c +generated/minval_r16.c +generated/minval_r17.c +" + +i_minval0s_c=" +generated/minval0_s1.c +generated/minval0_s4.c +" + +i_minval1s_c=" +generated/minval1_s1.c +generated/minval1_s4.c +" + +i_norm2_c=" +generated/norm2_r4.c +generated/norm2_r8.c +generated/norm2_r10.c +generated/norm2_r16.c +generated/norm2_r17.c +" +i_parity_c=" +generated/parity_l1.c +generated/parity_l2.c +generated/parity_l4.c +generated/parity_l8.c +generated/parity_l16.c +" + +i_sum_c=" +generated/sum_i1.c +generated/sum_i2.c +generated/sum_i4.c +generated/sum_i8.c +generated/sum_i16.c +generated/sum_r4.c +generated/sum_r8.c +generated/sum_r10.c +generated/sum_r16.c +generated/sum_r17.c +generated/sum_c4.c +generated/sum_c8.c +generated/sum_c10.c +generated/sum_c16.c +generated/sum_c17.c +" + +i_product_c=" +generated/product_i1.c +generated/product_i2.c +generated/product_i4.c +generated/product_i8.c +generated/product_i16.c +generated/product_r4.c +generated/product_r8.c +generated/product_r10.c +generated/product_r16.c +generated/product_r17.c +generated/product_c4.c +generated/product_c8.c +generated/product_c10.c +generated/product_c16.c +generated/product_c17.c +" + +i_matmul_c=" +generated/matmul_i1.c +generated/matmul_i2.c +generated/matmul_i4.c +generated/matmul_i8.c +generated/matmul_i16.c +generated/matmul_r4.c +generated/matmul_r8.c +generated/matmul_r10.c +generated/matmul_r16.c +generated/matmul_r17.c +generated/matmul_c4.c +generated/matmul_c8.c +generated/matmul_c10.c +generated/matmul_c16.c +generated/matmul_c17.c +" + +i_matmulavx128_c=" +generated/matmulavx128_i1.c +generated/matmulavx128_i2.c +generated/matmulavx128_i4.c +generated/matmulavx128_i8.c +generated/matmulavx128_i16.c +generated/matmulavx128_r4.c +generated/matmulavx128_r8.c +generated/matmulavx128_r10.c +generated/matmulavx128_r16.c +generated/matmulavx128_r17.c +generated/matmulavx128_c4.c +generated/matmulavx128_c8.c +generated/matmulavx128_c10.c +generated/matmulavx128_c16.c +generated/matmulavx128_c17.c +" + +i_matmull_c=" +generated/matmul_l4.c +generated/matmul_l8.c +generated/matmul_l16.c +" + +i_shape_c=" +generated/shape_i1.c +generated/shape_i2.c +generated/shape_i4.c +generated/shape_i8.c +generated/shape_i16.c +" + +i_reshape_c=" +generated/reshape_i4.c +generated/reshape_i8.c +generated/reshape_i16.c +generated/reshape_r4.c +generated/reshape_r8.c +generated/reshape_r10.c +generated/reshape_r16.c +generated/reshape_r17.c +generated/reshape_c4.c +generated/reshape_c8.c +generated/reshape_c10.c +generated/reshape_c16.c +generated/reshape_c17.c +" + +i_eoshift1_c=" +generated/eoshift1_4.c +generated/eoshift1_8.c +generated/eoshift1_16.c +" + +i_eoshift3_c=" +generated/eoshift3_4.c +generated/eoshift3_8.c +generated/eoshift3_16.c +" + +i_cshift0_c=" +generated/cshift0_i1.c +generated/cshift0_i2.c +generated/cshift0_i4.c +generated/cshift0_i8.c +generated/cshift0_i16.c +generated/cshift0_r4.c +generated/cshift0_r8.c +generated/cshift0_r10.c +generated/cshift0_r16.c +generated/cshift0_r17.c +generated/cshift0_c4.c +generated/cshift0_c8.c +generated/cshift0_c10.c +generated/cshift0_c16.c +generated/cshift0_c17.c +" + +i_cshift1_c=" +generated/cshift1_4.c +generated/cshift1_8.c +generated/cshift1_16.c +" + +i_cshift1a_c=" +generated/cshift1_4_i1.c +generated/cshift1_4_i2.c +generated/cshift1_4_i4.c +generated/cshift1_4_i8.c +generated/cshift1_4_i16.c +generated/cshift1_4_r4.c +generated/cshift1_4_r8.c +generated/cshift1_4_r10.c +generated/cshift1_4_r16.c +generated/cshift1_4_r17.c +generated/cshift1_4_c4.c +generated/cshift1_4_c8.c +generated/cshift1_4_c10.c +generated/cshift1_4_c16.c +generated/cshift1_4_c17.c +generated/cshift1_8_i1.c +generated/cshift1_8_i2.c +generated/cshift1_8_i4.c +generated/cshift1_8_i8.c +generated/cshift1_8_i16.c +generated/cshift1_8_r4.c +generated/cshift1_8_r8.c +generated/cshift1_8_r10.c +generated/cshift1_8_r16.c +generated/cshift1_8_r17.c +generated/cshift1_8_c4.c +generated/cshift1_8_c8.c +generated/cshift1_8_c10.c +generated/cshift1_8_c16.c +generated/cshift1_8_c17.c +generated/cshift1_16_i1.c +generated/cshift1_16_i2.c +generated/cshift1_16_i4.c +generated/cshift1_16_i8.c +generated/cshift1_16_i16.c +generated/cshift1_16_r4.c +generated/cshift1_16_r8.c +generated/cshift1_16_r10.c +generated/cshift1_16_r16.c +generated/cshift1_16_r17.c +generated/cshift1_16_c4.c +generated/cshift1_16_c8.c +generated/cshift1_16_c10.c +generated/cshift1_16_c16.c +generated/cshift1_16_c17.c +" + +in_pack_c=" +generated/in_pack_i1.c +generated/in_pack_i2.c +generated/in_pack_i4.c +generated/in_pack_i8.c +generated/in_pack_i16.c +generated/in_pack_r4.c +generated/in_pack_r8.c +generated/in_pack_r10.c +generated/in_pack_r16.c +generated/in_pack_r17.c +generated/in_pack_c4.c +generated/in_pack_c8.c +generated/in_pack_c10.c +generated/in_pack_c16.c +generated/in_pack_c17.c +" + +in_unpack_c=" +generated/in_unpack_i1.c +generated/in_unpack_i2.c +generated/in_unpack_i4.c +generated/in_unpack_i8.c +generated/in_unpack_i16.c +generated/in_unpack_r4.c +generated/in_unpack_r8.c +generated/in_unpack_r10.c +generated/in_unpack_r16.c +generated/in_unpack_r17.c +generated/in_unpack_c4.c +generated/in_unpack_c8.c +generated/in_unpack_c10.c +generated/in_unpack_c16.c +generated/in_unpack_c17.c +" + +i_pow_c=" +generated/pow_i4_i4.c +generated/pow_i8_i4.c +generated/pow_i16_i4.c +generated/pow_r16_i4.c +generated/pow_r17_i4.c +generated/pow_c4_i4.c +generated/pow_c8_i4.c +generated/pow_c10_i4.c +generated/pow_c16_i4.c +generated/pow_c17_i4.c +generated/pow_i4_i8.c +generated/pow_i8_i8.c +generated/pow_i16_i8.c +generated/pow_r4_i8.c +generated/pow_r8_i8.c +generated/pow_r10_i8.c +generated/pow_r16_i8.c +generated/pow_r17_i8.c +generated/pow_c4_i8.c +generated/pow_c8_i8.c +generated/pow_c10_i8.c +generated/pow_c16_i8.c +generated/pow_c17_i8.c +generated/pow_i4_i16.c +generated/pow_i8_i16.c +generated/pow_i16_i16.c +generated/pow_r4_i16.c +generated/pow_r8_i16.c +generated/pow_r10_i16.c +generated/pow_r16_i16.c +generated/pow_r17_i16.c +generated/pow_c4_i16.c +generated/pow_c8_i16.c +generated/pow_c10_i16.c +generated/pow_c16_i16.c +generated/pow_c17_i16.c +" + +i_powu_c=" +generated/pow_m1_m1.c +generated/pow_m1_m2.c +generated/pow_m1_m4.c +generated/pow_m1_m8.c +generated/pow_m1_m16.c +generated/pow_m2_m1.c +generated/pow_m2_m2.c +generated/pow_m2_m4.c +generated/pow_m2_m8.c +generated/pow_m2_m16.c +generated/pow_m4_m1.c +generated/pow_m4_m2.c +generated/pow_m4_m4.c +generated/pow_m4_m8.c +generated/pow_m4_m16.c +generated/pow_m8_m1.c +generated/pow_m8_m2.c +generated/pow_m8_m4.c +generated/pow_m8_m8.c +generated/pow_m8_m16.c +generated/pow_m16_m1.c +generated/pow_m16_m2.c +generated/pow_m16_m4.c +generated/pow_m16_m8.c +generated/pow_m16_m16.c +" + +i_pack_c=" +generated/pack_i1.c +generated/pack_i2.c +generated/pack_i4.c +generated/pack_i8.c +generated/pack_i16.c +generated/pack_r4.c +generated/pack_r8.c +generated/pack_r10.c +generated/pack_r16.c +generated/pack_r17.c +generated/pack_c4.c +generated/pack_c8.c +generated/pack_c10.c +generated/pack_c16.c +generated/pack_c17.c +" + +i_unpack_c=" +generated/unpack_i1.c +generated/unpack_i2.c +generated/unpack_i4.c +generated/unpack_i8.c +generated/unpack_i16.c +generated/unpack_r4.c +generated/unpack_r8.c +generated/unpack_r10.c +generated/unpack_r16.c +generated/unpack_r17.c +generated/unpack_c4.c +generated/unpack_c8.c +generated/unpack_c10.c +generated/unpack_c16.c +generated/unpack_c17.c +" + +i_spread_c=" +generated/spread_i1.c +generated/spread_i2.c +generated/spread_i4.c +generated/spread_i8.c +generated/spread_i16.c +generated/spread_r4.c +generated/spread_r8.c +generated/spread_r10.c +generated/spread_r16.c +generated/spread_r17.c +generated/spread_c4.c +generated/spread_c8.c +generated/spread_c10.c +generated/spread_c16.c +generated/spread_c17.c +" + +gfor_built_specific_src=" +generated/_abs_c4.F90 +generated/_abs_c8.F90 +generated/_abs_c10.F90 +generated/_abs_c16.F90 +generated/_abs_c17.F90 +generated/_abs_i4.F90 +generated/_abs_i8.F90 +generated/_abs_i16.F90 +generated/_abs_r4.F90 +generated/_abs_r8.F90 +generated/_abs_r10.F90 +generated/_abs_r16.F90 +generated/_abs_r17.F90 +generated/_aimag_c4.F90 +generated/_aimag_c8.F90 +generated/_aimag_c10.F90 +generated/_aimag_c16.F90 +generated/_aimag_c17.F90 +generated/_exp_r4.F90 +generated/_exp_r8.F90 +generated/_exp_r10.F90 +generated/_exp_r16.F90 +generated/_exp_r17.F90 +generated/_exp_c4.F90 +generated/_exp_c8.F90 +generated/_exp_c10.F90 +generated/_exp_c16.F90 +generated/_exp_c17.F90 +generated/_log_r4.F90 +generated/_log_r8.F90 +generated/_log_r10.F90 +generated/_log_r16.F90 +generated/_log_r17.F90 +generated/_log_c4.F90 +generated/_log_c8.F90 +generated/_log_c10.F90 +generated/_log_c16.F90 +generated/_log_c17.F90 +generated/_log10_r4.F90 +generated/_log10_r8.F90 +generated/_log10_r10.F90 +generated/_log10_r16.F90 +generated/_log10_r17.F90 +generated/_sqrt_r4.F90 +generated/_sqrt_r8.F90 +generated/_sqrt_r10.F90 +generated/_sqrt_r16.F90 +generated/_sqrt_r17.F90 +generated/_sqrt_c4.F90 +generated/_sqrt_c8.F90 +generated/_sqrt_c10.F90 +generated/_sqrt_c16.F90 +generated/_sqrt_c17.F90 +generated/_asin_r4.F90 +generated/_asin_r8.F90 +generated/_asin_r10.F90 +generated/_asin_r16.F90 +generated/_asin_r17.F90 +generated/_asinh_r4.F90 +generated/_asinh_r8.F90 +generated/_asinh_r10.F90 +generated/_asinh_r16.F90 +generated/_asinh_r17.F90 +generated/_acos_r4.F90 +generated/_acos_r8.F90 +generated/_acos_r10.F90 +generated/_acos_r16.F90 +generated/_acos_r17.F90 +generated/_acosh_r4.F90 +generated/_acosh_r8.F90 +generated/_acosh_r10.F90 +generated/_acosh_r16.F90 +generated/_acosh_r17.F90 +generated/_atan_r4.F90 +generated/_atan_r8.F90 +generated/_atan_r10.F90 +generated/_atan_r16.F90 +generated/_atan_r17.F90 +generated/_atanh_r4.F90 +generated/_atanh_r8.F90 +generated/_atanh_r10.F90 +generated/_atanh_r16.F90 +generated/_atanh_r17.F90 +generated/_sin_r4.F90 +generated/_sin_r8.F90 +generated/_sin_r10.F90 +generated/_sin_r16.F90 +generated/_sin_r17.F90 +generated/_sin_c4.F90 +generated/_sin_c8.F90 +generated/_sin_c10.F90 +generated/_sin_c16.F90 +generated/_sin_c17.F90 +generated/_cos_r4.F90 +generated/_cos_r8.F90 +generated/_cos_r10.F90 +generated/_cos_r16.F90 +generated/_cos_r17.F90 +generated/_cos_c4.F90 +generated/_cos_c8.F90 +generated/_cos_c10.F90 +generated/_cos_c16.F90 +generated/_cos_c17.F90 +generated/_tan_r4.F90 +generated/_tan_r8.F90 +generated/_tan_r10.F90 +generated/_tan_r16.F90 +generated/_tan_r17.F90 +generated/_sinh_r4.F90 +generated/_sinh_r8.F90 +generated/_sinh_r10.F90 +generated/_sinh_r16.F90 +generated/_sinh_r17.F90 +generated/_cosh_r4.F90 +generated/_cosh_r8.F90 +generated/_cosh_r10.F90 +generated/_cosh_r16.F90 +generated/_cosh_r17.F90 +generated/_tanh_r4.F90 +generated/_tanh_r8.F90 +generated/_tanh_r10.F90 +generated/_tanh_r16.F90 +generated/_tanh_r17.F90 +generated/_conjg_c4.F90 +generated/_conjg_c8.F90 +generated/_conjg_c10.F90 +generated/_conjg_c16.F90 +generated/_conjg_c17.F90 +generated/_aint_r4.F90 +generated/_aint_r8.F90 +generated/_aint_r10.F90 +generated/_aint_r16.F90 +generated/_aint_r17.F90 +generated/_anint_r4.F90 +generated/_anint_r8.F90 +generated/_anint_r10.F90 +generated/_anint_r16.F90 +generated/_anint_r17.F90 +" + +gfor_built_specific2_src=" +generated/_sign_i4.F90 +generated/_sign_i8.F90 +generated/_sign_i16.F90 +generated/_sign_r4.F90 +generated/_sign_r8.F90 +generated/_sign_r10.F90 +generated/_sign_r16.F90 +generated/_sign_r17.F90 +generated/_dim_i4.F90 +generated/_dim_i8.F90 +generated/_dim_i16.F90 +generated/_dim_r4.F90 +generated/_dim_r8.F90 +generated/_dim_r10.F90 +generated/_dim_r16.F90 +generated/_dim_r17.F90 +generated/_atan2_r4.F90 +generated/_atan2_r8.F90 +generated/_atan2_r10.F90 +generated/_atan2_r16.F90 +generated/_atan2_r17.F90 +generated/_mod_i4.F90 +generated/_mod_i8.F90 +generated/_mod_i16.F90 +generated/_mod_r4.F90 +generated/_mod_r8.F90 +generated/_mod_r10.F90 +generated/_mod_r16.F90 +generated/_mod_r17.F90 +" + +gfor_misc_specifics=" +generated/misc_specifics.F90 +" + + +for f in ${i_all_c} ; do + ${M4} -Dfile=$f -I./m4 all.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_bessel_c} ; do + ${M4} -Dfile=$f -I./m4 bessel.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_any_c} ; do + ${M4} -Dfile=$f -I./m4 any.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_count_c} ; do + ${M4} -Dfile=$f -I./m4 count.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_findloc0_c} ; do + ${M4} -Dfile=$f -I./m4 findloc0.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_findloc0s_c} ; do + ${M4} -Dfile=$f -I./m4 findloc0s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_findloc1_c} ; do + ${M4} -Dfile=$f -I./m4 findloc1.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_findloc1s_c} ; do + ${M4} -Dfile=$f -I./m4 findloc1s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_findloc2s_c} ; do + ${M4} -Dfile=$f -I./m4 findloc2s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_iall_c} ; do + ${M4} -Dfile=$f -I./m4 iall.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_iany_c} ; do + ${M4} -Dfile=$f -I./m4 iany.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_iparity_c} ; do + ${M4} -Dfile=$f -I./m4 iparity.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_maxloc0_c} ; do + ${M4} -Dfile=$f -I./m4 maxloc0.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_maxloc0s_c} ; do + ${M4} -Dfile=$f -I./m4 maxloc0s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_maxloc1_c} ; do + ${M4} -Dfile=$f -I./m4 maxloc1.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_maxloc1s_c} ; do + ${M4} -Dfile=$f -I./m4 maxloc1s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_maxloc2s_c} ; do + ${M4} -Dfile=$f -I./m4 maxloc2s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_maxval_c} ; do + ${M4} -Dfile=$f -I./m4 maxval.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_maxval0s_c} ; do + ${M4} -Dfile=$f -I./m4 maxval0s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_maxval1s_c} ; do + ${M4} -Dfile=$f -I./m4 maxval1s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_minloc0_c} ; do + ${M4} -Dfile=$f -I./m4 minloc0.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_minloc0s_c} ; do + ${M4} -Dfile=$f -I./m4 minloc0s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_minloc1_c} ; do + ${M4} -Dfile=$f -I./m4 minloc1.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_minloc1s_c} ; do + ${M4} -Dfile=$f -I./m4 minloc1s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_minloc2s_c} ; do + ${M4} -Dfile=$f -I./m4 minloc2s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_minval_c} ; do + ${M4} -Dfile=$f -I./m4 minval.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_minval0s_c} ; do + ${M4} -Dfile=$f -I./m4 minval0s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_minval1s_c} ; do + ${M4} -Dfile=$f -I./m4 minval1s.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_product_c} ; do + ${M4} -Dfile=$f -I./m4 product.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_sum_c} ; do + ${M4} -Dfile=$f -I./m4 sum.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_matmul_c} ; do + ${M4} -Dfile=$f -I./m4 matmul.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_matmulavx128_c} ; do + ${M4} -Dfile=$f -I./m4 matmulavx128.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_matmull_c} ; do + ${M4} -Dfile=$f -I./m4 matmull.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_norm2_c} ; do + ${M4} -Dfile=$f -I./m4 norm2.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_parity_c} ; do + ${M4} -Dfile=$f -I./m4 parity.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_shape_c} ; do + ${M4} -Dfile=$f -I./m4 shape.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_reshape_c} ; do + ${M4} -Dfile=$f -I./m4 reshape.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_eoshift1_c} ; do + ${M4} -Dfile=$f -I./m4 eoshift1.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_eoshift3_c} ; do + ${M4} -Dfile=$f -I./m4 eoshift3.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_cshift0_c} ; do + ${M4} -Dfile=$f -I./m4 cshift0.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_cshift1_c} ; do + ${M4} -Dfile=$f -I./m4 cshift1.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_cshift1a_c} ; do + ${M4} -Dfile=$f -I./m4 cshift1a.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${in_pack_c} ; do + ${M4} -Dfile=$f -I./m4 in_pack.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${in_unpack_c} ; do + ${M4} -Dfile=$f -I./m4 in_unpack.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_pow_c} ; do + ${M4} -Dfile=$f -I./m4 pow.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_powu_c} ; do + ${M4} -Dfile=$f -I./m4 powu.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_pack_c} ; do + ${M4} -Dfile=$f -I./m4 pack.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_unpack_c} ; do + ${M4} -Dfile=$f -I./m4 unpack.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${i_spread_c} ; do + ${M4} -Dfile=$f -I./m4 spread.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${gfor_built_specific_src} ; do + ${M4} -Dfile=$f -I./m4 specific.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${gfor_built_specific2_src} ; do + ${M4} -Dfile=$f -I./m4 specific2.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +for f in ${gfor_misc_specifics} ; do + ${M4} -Dfile=$f -I./m4 misc_specifics.m4 > $f.tmp + ../move-if-change $f.tmp $f +done + +# Check that all generated files are listed in Makefile.am + +for i in generated/*.c generated/*.F90 ; do + if ! grep -q "$i" Makefile.am ; then + echo "File $i is not present in Makefile.am" + fi +done + +# Check that all generated files listed in Makefile.am actually exist + +genlist=`tr ' ' '\n' < Makefile.am | grep 'generated/'` +for i in $genlist ; do + if ! test -e "$i" ; then + echo "File $i listed in Makefile.am does not exist" + fi +done + |