2007-04-24 17:08:52 +08:00
|
|
|
GFORTRAN_1.0 {
|
|
|
|
|
global:
|
|
|
|
|
_gfortran_abort;
|
|
|
|
|
_gfortran_access_func;
|
|
|
|
|
_gfortran_adjustl;
|
|
|
|
|
_gfortran_adjustr;
|
2007-08-07 07:02:38 +08:00
|
|
|
_gfortran_alarm_sub_i4;
|
|
|
|
|
_gfortran_alarm_sub_i8;
|
|
|
|
|
_gfortran_alarm_sub_int_i4;
|
|
|
|
|
_gfortran_alarm_sub_int_i8;
|
re PR libfortran/34671 (any(kind=1) and all(kind=1))
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
_gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
_gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
_gfortran_count_8_l Removed _gfortran_count_16_l16,
_gfortran_count_16_l4, _gfortran_count_16_l8,
_gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
_gfortran_count_8_l16, _gfortran_count_8_l4 and
_gfortran_count_8_l8.
* Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
i_any_c. Added generated/all_l1. and generated/all_l2.c to
i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
generated/count_16_l4.c, generated/count_4_l8.c,
generated/count_8_l8.c, generated/count_16_l8.c,
generated/count_4_l16.c, generated/count_8_l16.c, and
generated/count_16_l16.c from i_count_c. Added count_1_l.c,
count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
any of the files generated from all.m4, any.m4 and count.m4.
* Makefile.in: Regenerated.
* m4/ifunction_logical.m4: New file. Use
GFC_LOGICAL_1 pointer for access to source arrays.
* m4/any.m4: Include ifunction_logical.m4 instead of
ifunction.m4. Don't check atype_name.
* m4/all.m4: Likewise.
* m4/count.m4: Likewise.
* generated/any_l1.c: New file.
* generated/any_l2.c: New file.
* generated/all_l1.c: New file.
* generated/count_1_l.c: New file.
* generated/count_2_l.c: New file.
* generated/count_4_l.c: New file.
* generated/count_8_l.c: New file.
* generated/count_16_l.c: New file.
* generated/any_l4.c: Regenerated.
* generated/any_l8.c: Regenerated.
* generated/any_l16.c: Regenerated.
* generated/all_l4.c: Regenerated.
* generated/all_l8.c: Regenerated.
* generated/all_l16.c: Regenerated.
* generated/count_4_l4.c: Removed.
* generated/count_4_l8.c: Removed.
* generated/count_4_l16.c: Removed.
* generated/count_8_l4.c: Removed.
* generated/count_8_l8.c: Removed.
* generated/count_8_l16.c: Removed.
* generated/count_16_l4.c: Removed.
* generated/count_16_l8.c: Removed.
* generated/count_16_l16.c: Removed.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* iresolve.c (gfc_resolve_all): Call resolve_mask_arg.
(gfc_resolve_any): Likewise.
(gfc_resolve_count): Likewise. Don't append kind of
argument to function name.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.dg/anyallcount_1.f90: New test.
From-SVN: r131553
2008-01-16 05:22:07 +08:00
|
|
|
_gfortran_all_l1;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_all_l16;
|
re PR libfortran/34671 (any(kind=1) and all(kind=1))
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
_gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
_gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
_gfortran_count_8_l Removed _gfortran_count_16_l16,
_gfortran_count_16_l4, _gfortran_count_16_l8,
_gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
_gfortran_count_8_l16, _gfortran_count_8_l4 and
_gfortran_count_8_l8.
* Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
i_any_c. Added generated/all_l1. and generated/all_l2.c to
i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
generated/count_16_l4.c, generated/count_4_l8.c,
generated/count_8_l8.c, generated/count_16_l8.c,
generated/count_4_l16.c, generated/count_8_l16.c, and
generated/count_16_l16.c from i_count_c. Added count_1_l.c,
count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
any of the files generated from all.m4, any.m4 and count.m4.
* Makefile.in: Regenerated.
* m4/ifunction_logical.m4: New file. Use
GFC_LOGICAL_1 pointer for access to source arrays.
* m4/any.m4: Include ifunction_logical.m4 instead of
ifunction.m4. Don't check atype_name.
* m4/all.m4: Likewise.
* m4/count.m4: Likewise.
* generated/any_l1.c: New file.
* generated/any_l2.c: New file.
* generated/all_l1.c: New file.
* generated/count_1_l.c: New file.
* generated/count_2_l.c: New file.
* generated/count_4_l.c: New file.
* generated/count_8_l.c: New file.
* generated/count_16_l.c: New file.
* generated/any_l4.c: Regenerated.
* generated/any_l8.c: Regenerated.
* generated/any_l16.c: Regenerated.
* generated/all_l4.c: Regenerated.
* generated/all_l8.c: Regenerated.
* generated/all_l16.c: Regenerated.
* generated/count_4_l4.c: Removed.
* generated/count_4_l8.c: Removed.
* generated/count_4_l16.c: Removed.
* generated/count_8_l4.c: Removed.
* generated/count_8_l8.c: Removed.
* generated/count_8_l16.c: Removed.
* generated/count_16_l4.c: Removed.
* generated/count_16_l8.c: Removed.
* generated/count_16_l16.c: Removed.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* iresolve.c (gfc_resolve_all): Call resolve_mask_arg.
(gfc_resolve_any): Likewise.
(gfc_resolve_count): Likewise. Don't append kind of
argument to function name.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.dg/anyallcount_1.f90: New test.
From-SVN: r131553
2008-01-16 05:22:07 +08:00
|
|
|
_gfortran_all_l2;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_all_l4;
|
|
|
|
|
_gfortran_all_l8;
|
re PR libfortran/34671 (any(kind=1) and all(kind=1))
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
_gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
_gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
_gfortran_count_8_l Removed _gfortran_count_16_l16,
_gfortran_count_16_l4, _gfortran_count_16_l8,
_gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
_gfortran_count_8_l16, _gfortran_count_8_l4 and
_gfortran_count_8_l8.
* Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
i_any_c. Added generated/all_l1. and generated/all_l2.c to
i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
generated/count_16_l4.c, generated/count_4_l8.c,
generated/count_8_l8.c, generated/count_16_l8.c,
generated/count_4_l16.c, generated/count_8_l16.c, and
generated/count_16_l16.c from i_count_c. Added count_1_l.c,
count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
any of the files generated from all.m4, any.m4 and count.m4.
* Makefile.in: Regenerated.
* m4/ifunction_logical.m4: New file. Use
GFC_LOGICAL_1 pointer for access to source arrays.
* m4/any.m4: Include ifunction_logical.m4 instead of
ifunction.m4. Don't check atype_name.
* m4/all.m4: Likewise.
* m4/count.m4: Likewise.
* generated/any_l1.c: New file.
* generated/any_l2.c: New file.
* generated/all_l1.c: New file.
* generated/count_1_l.c: New file.
* generated/count_2_l.c: New file.
* generated/count_4_l.c: New file.
* generated/count_8_l.c: New file.
* generated/count_16_l.c: New file.
* generated/any_l4.c: Regenerated.
* generated/any_l8.c: Regenerated.
* generated/any_l16.c: Regenerated.
* generated/all_l4.c: Regenerated.
* generated/all_l8.c: Regenerated.
* generated/all_l16.c: Regenerated.
* generated/count_4_l4.c: Removed.
* generated/count_4_l8.c: Removed.
* generated/count_4_l16.c: Removed.
* generated/count_8_l4.c: Removed.
* generated/count_8_l8.c: Removed.
* generated/count_8_l16.c: Removed.
* generated/count_16_l4.c: Removed.
* generated/count_16_l8.c: Removed.
* generated/count_16_l16.c: Removed.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* iresolve.c (gfc_resolve_all): Call resolve_mask_arg.
(gfc_resolve_any): Likewise.
(gfc_resolve_count): Likewise. Don't append kind of
argument to function name.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.dg/anyallcount_1.f90: New test.
From-SVN: r131553
2008-01-16 05:22:07 +08:00
|
|
|
_gfortran_any_l1;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_any_l16;
|
re PR libfortran/34671 (any(kind=1) and all(kind=1))
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
_gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
_gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
_gfortran_count_8_l Removed _gfortran_count_16_l16,
_gfortran_count_16_l4, _gfortran_count_16_l8,
_gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
_gfortran_count_8_l16, _gfortran_count_8_l4 and
_gfortran_count_8_l8.
* Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
i_any_c. Added generated/all_l1. and generated/all_l2.c to
i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
generated/count_16_l4.c, generated/count_4_l8.c,
generated/count_8_l8.c, generated/count_16_l8.c,
generated/count_4_l16.c, generated/count_8_l16.c, and
generated/count_16_l16.c from i_count_c. Added count_1_l.c,
count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
any of the files generated from all.m4, any.m4 and count.m4.
* Makefile.in: Regenerated.
* m4/ifunction_logical.m4: New file. Use
GFC_LOGICAL_1 pointer for access to source arrays.
* m4/any.m4: Include ifunction_logical.m4 instead of
ifunction.m4. Don't check atype_name.
* m4/all.m4: Likewise.
* m4/count.m4: Likewise.
* generated/any_l1.c: New file.
* generated/any_l2.c: New file.
* generated/all_l1.c: New file.
* generated/count_1_l.c: New file.
* generated/count_2_l.c: New file.
* generated/count_4_l.c: New file.
* generated/count_8_l.c: New file.
* generated/count_16_l.c: New file.
* generated/any_l4.c: Regenerated.
* generated/any_l8.c: Regenerated.
* generated/any_l16.c: Regenerated.
* generated/all_l4.c: Regenerated.
* generated/all_l8.c: Regenerated.
* generated/all_l16.c: Regenerated.
* generated/count_4_l4.c: Removed.
* generated/count_4_l8.c: Removed.
* generated/count_4_l16.c: Removed.
* generated/count_8_l4.c: Removed.
* generated/count_8_l8.c: Removed.
* generated/count_8_l16.c: Removed.
* generated/count_16_l4.c: Removed.
* generated/count_16_l8.c: Removed.
* generated/count_16_l16.c: Removed.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* iresolve.c (gfc_resolve_all): Call resolve_mask_arg.
(gfc_resolve_any): Likewise.
(gfc_resolve_count): Likewise. Don't append kind of
argument to function name.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.dg/anyallcount_1.f90: New test.
From-SVN: r131553
2008-01-16 05:22:07 +08:00
|
|
|
_gfortran_any_l2;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_any_l4;
|
|
|
|
|
_gfortran_any_l8;
|
|
|
|
|
_gfortran_arandom_r10;
|
|
|
|
|
_gfortran_arandom_r16;
|
|
|
|
|
_gfortran_arandom_r4;
|
|
|
|
|
_gfortran_arandom_r8;
|
|
|
|
|
_gfortran_associated;
|
|
|
|
|
_gfortran_chdir_i4;
|
|
|
|
|
_gfortran_chdir_i4_sub;
|
|
|
|
|
_gfortran_chdir_i8;
|
|
|
|
|
_gfortran_chdir_i8_sub;
|
|
|
|
|
_gfortran_chmod_func;
|
|
|
|
|
_gfortran_chmod_i4_sub;
|
|
|
|
|
_gfortran_chmod_i8_sub;
|
|
|
|
|
_gfortran_compare_string;
|
|
|
|
|
_gfortran_concat_string;
|
re PR libfortran/34671 (any(kind=1) and all(kind=1))
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.am: Added _gfortran_all_l1, _gfortran_all_l2,
_gfortran_any_l1, _gfortran_any_l2, -28,15 _gfortran_count_1_l,
_gfortran_count_16_l, _gfortran_count_2_l, _gfortran_count_4_l and
_gfortran_count_8_l Removed _gfortran_count_16_l16,
_gfortran_count_16_l4, _gfortran_count_16_l8,
_gfortran_count_4_l16, _gfortran_count_4_l4, _gfortran_count_4_l8,
_gfortran_count_8_l16, _gfortran_count_8_l4 and
_gfortran_count_8_l8.
* Makefile.am: Added generated/any_l1.c and generated/any_l2.c to
i_any_c. Added generated/all_l1. and generated/all_l2.c to
i_all_c. Removed generated/count_4_l4.c, generated/count_8_l4.c,
generated/count_16_l4.c, generated/count_4_l8.c,
generated/count_8_l8.c, generated/count_16_l8.c,
generated/count_4_l16.c, generated/count_8_l16.c, and
generated/count_16_l16.c from i_count_c. Added count_1_l.c,
count_2_l.c, count_4_l.c, count_8_l.c and count_16_l.c to
i_count_c. I_M4_DEPS2 depends on ifunction_logical.m4, for
any of the files generated from all.m4, any.m4 and count.m4.
* Makefile.in: Regenerated.
* m4/ifunction_logical.m4: New file. Use
GFC_LOGICAL_1 pointer for access to source arrays.
* m4/any.m4: Include ifunction_logical.m4 instead of
ifunction.m4. Don't check atype_name.
* m4/all.m4: Likewise.
* m4/count.m4: Likewise.
* generated/any_l1.c: New file.
* generated/any_l2.c: New file.
* generated/all_l1.c: New file.
* generated/count_1_l.c: New file.
* generated/count_2_l.c: New file.
* generated/count_4_l.c: New file.
* generated/count_8_l.c: New file.
* generated/count_16_l.c: New file.
* generated/any_l4.c: Regenerated.
* generated/any_l8.c: Regenerated.
* generated/any_l16.c: Regenerated.
* generated/all_l4.c: Regenerated.
* generated/all_l8.c: Regenerated.
* generated/all_l16.c: Regenerated.
* generated/count_4_l4.c: Removed.
* generated/count_4_l8.c: Removed.
* generated/count_4_l16.c: Removed.
* generated/count_8_l4.c: Removed.
* generated/count_8_l8.c: Removed.
* generated/count_8_l16.c: Removed.
* generated/count_16_l4.c: Removed.
* generated/count_16_l8.c: Removed.
* generated/count_16_l16.c: Removed.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* iresolve.c (gfc_resolve_all): Call resolve_mask_arg.
(gfc_resolve_any): Likewise.
(gfc_resolve_count): Likewise. Don't append kind of
argument to function name.
2008-01-15 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/34671
* gfortran.dg/anyallcount_1.f90: New test.
From-SVN: r131553
2008-01-16 05:22:07 +08:00
|
|
|
_gfortran_count_1_l;
|
|
|
|
|
_gfortran_count_16_l;
|
|
|
|
|
_gfortran_count_2_l;
|
|
|
|
|
_gfortran_count_4_l;
|
|
|
|
|
_gfortran_count_8_l;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_cpu_time_10;
|
|
|
|
|
_gfortran_cpu_time_16;
|
|
|
|
|
_gfortran_cpu_time_4;
|
|
|
|
|
_gfortran_cpu_time_8;
|
|
|
|
|
_gfortran_cshift0_1;
|
|
|
|
|
_gfortran_cshift0_1_char;
|
|
|
|
|
_gfortran_cshift0_2;
|
|
|
|
|
_gfortran_cshift0_2_char;
|
|
|
|
|
_gfortran_cshift0_4;
|
|
|
|
|
_gfortran_cshift0_4_char;
|
|
|
|
|
_gfortran_cshift0_8;
|
|
|
|
|
_gfortran_cshift0_8_char;
|
|
|
|
|
_gfortran_cshift1_16;
|
|
|
|
|
_gfortran_cshift1_16_char;
|
|
|
|
|
_gfortran_cshift1_4;
|
|
|
|
|
_gfortran_cshift1_4_char;
|
|
|
|
|
_gfortran_cshift1_8;
|
|
|
|
|
_gfortran_cshift1_8_char;
|
|
|
|
|
_gfortran_ctime;
|
|
|
|
|
_gfortran_ctime_sub;
|
|
|
|
|
_gfortran_date_and_time;
|
2007-12-25 18:41:44 +08:00
|
|
|
_gfortran_dtime;
|
|
|
|
|
_gfortran_dtime_sub;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_eoshift0_1;
|
|
|
|
|
_gfortran_eoshift0_1_char;
|
|
|
|
|
_gfortran_eoshift0_2;
|
|
|
|
|
_gfortran_eoshift0_2_char;
|
|
|
|
|
_gfortran_eoshift0_4;
|
|
|
|
|
_gfortran_eoshift0_4_char;
|
|
|
|
|
_gfortran_eoshift0_8;
|
|
|
|
|
_gfortran_eoshift0_8_char;
|
|
|
|
|
_gfortran_eoshift1_16;
|
|
|
|
|
_gfortran_eoshift1_16_char;
|
|
|
|
|
_gfortran_eoshift1_4;
|
|
|
|
|
_gfortran_eoshift1_4_char;
|
|
|
|
|
_gfortran_eoshift1_8;
|
|
|
|
|
_gfortran_eoshift1_8_char;
|
|
|
|
|
_gfortran_eoshift2_1;
|
|
|
|
|
_gfortran_eoshift2_1_char;
|
|
|
|
|
_gfortran_eoshift2_2;
|
|
|
|
|
_gfortran_eoshift2_2_char;
|
|
|
|
|
_gfortran_eoshift2_4;
|
|
|
|
|
_gfortran_eoshift2_4_char;
|
|
|
|
|
_gfortran_eoshift2_8;
|
|
|
|
|
_gfortran_eoshift2_8_char;
|
|
|
|
|
_gfortran_eoshift3_16;
|
|
|
|
|
_gfortran_eoshift3_16_char;
|
|
|
|
|
_gfortran_eoshift3_4;
|
|
|
|
|
_gfortran_eoshift3_4_char;
|
|
|
|
|
_gfortran_eoshift3_8;
|
|
|
|
|
_gfortran_eoshift3_8_char;
|
|
|
|
|
_gfortran_etime;
|
|
|
|
|
_gfortran_etime_sub;
|
|
|
|
|
_gfortran_exit_i4;
|
|
|
|
|
_gfortran_exit_i8;
|
|
|
|
|
_gfortran_exponent_r10;
|
|
|
|
|
_gfortran_exponent_r16;
|
|
|
|
|
_gfortran_exponent_r4;
|
|
|
|
|
_gfortran_exponent_r8;
|
|
|
|
|
_gfortran_fdate;
|
|
|
|
|
_gfortran_fdate_sub;
|
|
|
|
|
_gfortran_fget;
|
|
|
|
|
_gfortran_fgetc;
|
|
|
|
|
_gfortran_fgetc_i1_sub;
|
|
|
|
|
_gfortran_fgetc_i2_sub;
|
|
|
|
|
_gfortran_fgetc_i4_sub;
|
|
|
|
|
_gfortran_fgetc_i8_sub;
|
|
|
|
|
_gfortran_fget_i1_sub;
|
|
|
|
|
_gfortran_fget_i2_sub;
|
|
|
|
|
_gfortran_fget_i4_sub;
|
|
|
|
|
_gfortran_fget_i8_sub;
|
|
|
|
|
_gfortran_flush_i4;
|
|
|
|
|
_gfortran_flush_i8;
|
|
|
|
|
_gfortran_fnum_i4;
|
|
|
|
|
_gfortran_fnum_i8;
|
|
|
|
|
_gfortran_fput;
|
|
|
|
|
_gfortran_fputc;
|
|
|
|
|
_gfortran_fputc_i1_sub;
|
|
|
|
|
_gfortran_fputc_i2_sub;
|
|
|
|
|
_gfortran_fputc_i4_sub;
|
|
|
|
|
_gfortran_fputc_i8_sub;
|
|
|
|
|
_gfortran_fput_i1_sub;
|
|
|
|
|
_gfortran_fput_i2_sub;
|
|
|
|
|
_gfortran_fput_i4_sub;
|
|
|
|
|
_gfortran_fput_i8_sub;
|
|
|
|
|
_gfortran_fraction_r10;
|
|
|
|
|
_gfortran_fraction_r16;
|
|
|
|
|
_gfortran_fraction_r4;
|
|
|
|
|
_gfortran_fraction_r8;
|
|
|
|
|
_gfortran_free;
|
2007-05-05 02:02:18 +08:00
|
|
|
_gfortran_fseek_sub;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_fstat_i4;
|
|
|
|
|
_gfortran_fstat_i4_sub;
|
|
|
|
|
_gfortran_fstat_i8;
|
|
|
|
|
_gfortran_fstat_i8_sub;
|
|
|
|
|
_gfortran_ftell;
|
|
|
|
|
_gfortran_ftell_i1_sub;
|
|
|
|
|
_gfortran_ftell_i2_sub;
|
|
|
|
|
_gfortran_ftell_i4_sub;
|
|
|
|
|
_gfortran_ftell_i8_sub;
|
2007-05-07 06:28:31 +08:00
|
|
|
_gfortran_generate_error;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_gerror;
|
|
|
|
|
_gfortran_getarg_i4;
|
|
|
|
|
_gfortran_getarg_i8;
|
|
|
|
|
_gfortran_get_command_argument_i4;
|
|
|
|
|
_gfortran_get_command_argument_i8;
|
|
|
|
|
_gfortran_get_command_i4;
|
|
|
|
|
_gfortran_get_command_i8;
|
|
|
|
|
_gfortran_getcwd;
|
|
|
|
|
_gfortran_getcwd_i4_sub;
|
|
|
|
|
_gfortran_getcwd_i8_sub;
|
|
|
|
|
_gfortran_getenv;
|
|
|
|
|
_gfortran_get_environment_variable_i4;
|
|
|
|
|
_gfortran_get_environment_variable_i8;
|
|
|
|
|
_gfortran_getgid;
|
|
|
|
|
_gfortran_getlog;
|
|
|
|
|
_gfortran_getpid;
|
|
|
|
|
_gfortran_getuid;
|
|
|
|
|
_gfortran_gmtime_i4;
|
|
|
|
|
_gfortran_gmtime_i8;
|
|
|
|
|
_gfortran_hostnm;
|
|
|
|
|
_gfortran_hostnm_i4_sub;
|
|
|
|
|
_gfortran_hostnm_i8_sub;
|
|
|
|
|
_gfortran_iargc;
|
|
|
|
|
_gfortran_idate_i4;
|
|
|
|
|
_gfortran_idate_i8;
|
|
|
|
|
_gfortran_ierrno_i4;
|
|
|
|
|
_gfortran_ierrno_i8;
|
|
|
|
|
_gfortran_internal_pack;
|
|
|
|
|
_gfortran_internal_unpack;
|
|
|
|
|
_gfortran_irand;
|
|
|
|
|
_gfortran_isatty_l4;
|
|
|
|
|
_gfortran_isatty_l8;
|
|
|
|
|
_gfortran_ishftc16;
|
|
|
|
|
_gfortran_ishftc4;
|
|
|
|
|
_gfortran_ishftc8;
|
|
|
|
|
_gfortran_itime_i4;
|
|
|
|
|
_gfortran_itime_i8;
|
|
|
|
|
_gfortran_kill_i4;
|
|
|
|
|
_gfortran_kill_i4_sub;
|
|
|
|
|
_gfortran_kill_i8;
|
|
|
|
|
_gfortran_kill_i8_sub;
|
|
|
|
|
_gfortran_link_i4;
|
|
|
|
|
_gfortran_link_i4_sub;
|
|
|
|
|
_gfortran_link_i8;
|
|
|
|
|
_gfortran_link_i8_sub;
|
|
|
|
|
_gfortran_lstat_i4;
|
|
|
|
|
_gfortran_lstat_i4_sub;
|
|
|
|
|
_gfortran_lstat_i8;
|
|
|
|
|
_gfortran_lstat_i8_sub;
|
|
|
|
|
_gfortran_ltime_i4;
|
|
|
|
|
_gfortran_ltime_i8;
|
|
|
|
|
_gfortran_malloc;
|
|
|
|
|
_gfortran_matmul_c10;
|
|
|
|
|
_gfortran_matmul_c16;
|
|
|
|
|
_gfortran_matmul_c4;
|
|
|
|
|
_gfortran_matmul_c8;
|
|
|
|
|
_gfortran_matmul_i1;
|
|
|
|
|
_gfortran_matmul_i16;
|
|
|
|
|
_gfortran_matmul_i2;
|
|
|
|
|
_gfortran_matmul_i4;
|
|
|
|
|
_gfortran_matmul_i8;
|
|
|
|
|
_gfortran_matmul_l16;
|
|
|
|
|
_gfortran_matmul_l4;
|
|
|
|
|
_gfortran_matmul_l8;
|
|
|
|
|
_gfortran_matmul_r10;
|
|
|
|
|
_gfortran_matmul_r16;
|
|
|
|
|
_gfortran_matmul_r4;
|
|
|
|
|
_gfortran_matmul_r8;
|
|
|
|
|
_gfortran_maxloc0_16_i1;
|
|
|
|
|
_gfortran_maxloc0_16_i16;
|
|
|
|
|
_gfortran_maxloc0_16_i2;
|
|
|
|
|
_gfortran_maxloc0_16_i4;
|
|
|
|
|
_gfortran_maxloc0_16_i8;
|
|
|
|
|
_gfortran_maxloc0_16_r10;
|
|
|
|
|
_gfortran_maxloc0_16_r16;
|
|
|
|
|
_gfortran_maxloc0_16_r4;
|
|
|
|
|
_gfortran_maxloc0_16_r8;
|
|
|
|
|
_gfortran_maxloc0_4_i1;
|
|
|
|
|
_gfortran_maxloc0_4_i16;
|
|
|
|
|
_gfortran_maxloc0_4_i2;
|
|
|
|
|
_gfortran_maxloc0_4_i4;
|
|
|
|
|
_gfortran_maxloc0_4_i8;
|
|
|
|
|
_gfortran_maxloc0_4_r10;
|
|
|
|
|
_gfortran_maxloc0_4_r16;
|
|
|
|
|
_gfortran_maxloc0_4_r4;
|
|
|
|
|
_gfortran_maxloc0_4_r8;
|
|
|
|
|
_gfortran_maxloc0_8_i1;
|
|
|
|
|
_gfortran_maxloc0_8_i16;
|
|
|
|
|
_gfortran_maxloc0_8_i2;
|
|
|
|
|
_gfortran_maxloc0_8_i4;
|
|
|
|
|
_gfortran_maxloc0_8_i8;
|
|
|
|
|
_gfortran_maxloc0_8_r10;
|
|
|
|
|
_gfortran_maxloc0_8_r16;
|
|
|
|
|
_gfortran_maxloc0_8_r4;
|
|
|
|
|
_gfortran_maxloc0_8_r8;
|
|
|
|
|
_gfortran_maxloc1_16_i1;
|
|
|
|
|
_gfortran_maxloc1_16_i16;
|
|
|
|
|
_gfortran_maxloc1_16_i2;
|
|
|
|
|
_gfortran_maxloc1_16_i4;
|
|
|
|
|
_gfortran_maxloc1_16_i8;
|
|
|
|
|
_gfortran_maxloc1_16_r10;
|
|
|
|
|
_gfortran_maxloc1_16_r16;
|
|
|
|
|
_gfortran_maxloc1_16_r4;
|
|
|
|
|
_gfortran_maxloc1_16_r8;
|
|
|
|
|
_gfortran_maxloc1_4_i1;
|
|
|
|
|
_gfortran_maxloc1_4_i16;
|
|
|
|
|
_gfortran_maxloc1_4_i2;
|
|
|
|
|
_gfortran_maxloc1_4_i4;
|
|
|
|
|
_gfortran_maxloc1_4_i8;
|
|
|
|
|
_gfortran_maxloc1_4_r10;
|
|
|
|
|
_gfortran_maxloc1_4_r16;
|
|
|
|
|
_gfortran_maxloc1_4_r4;
|
|
|
|
|
_gfortran_maxloc1_4_r8;
|
|
|
|
|
_gfortran_maxloc1_8_i1;
|
|
|
|
|
_gfortran_maxloc1_8_i16;
|
|
|
|
|
_gfortran_maxloc1_8_i2;
|
|
|
|
|
_gfortran_maxloc1_8_i4;
|
|
|
|
|
_gfortran_maxloc1_8_i8;
|
|
|
|
|
_gfortran_maxloc1_8_r10;
|
|
|
|
|
_gfortran_maxloc1_8_r16;
|
|
|
|
|
_gfortran_maxloc1_8_r4;
|
|
|
|
|
_gfortran_maxloc1_8_r8;
|
|
|
|
|
_gfortran_maxval_i1;
|
|
|
|
|
_gfortran_maxval_i16;
|
|
|
|
|
_gfortran_maxval_i2;
|
|
|
|
|
_gfortran_maxval_i4;
|
|
|
|
|
_gfortran_maxval_i8;
|
|
|
|
|
_gfortran_maxval_r10;
|
|
|
|
|
_gfortran_maxval_r16;
|
|
|
|
|
_gfortran_maxval_r4;
|
|
|
|
|
_gfortran_maxval_r8;
|
|
|
|
|
_gfortran_mclock;
|
|
|
|
|
_gfortran_mclock8;
|
|
|
|
|
_gfortran_minloc0_16_i1;
|
|
|
|
|
_gfortran_minloc0_16_i16;
|
|
|
|
|
_gfortran_minloc0_16_i2;
|
|
|
|
|
_gfortran_minloc0_16_i4;
|
|
|
|
|
_gfortran_minloc0_16_i8;
|
|
|
|
|
_gfortran_minloc0_16_r10;
|
|
|
|
|
_gfortran_minloc0_16_r16;
|
|
|
|
|
_gfortran_minloc0_16_r4;
|
|
|
|
|
_gfortran_minloc0_16_r8;
|
|
|
|
|
_gfortran_minloc0_4_i1;
|
|
|
|
|
_gfortran_minloc0_4_i16;
|
|
|
|
|
_gfortran_minloc0_4_i2;
|
|
|
|
|
_gfortran_minloc0_4_i4;
|
|
|
|
|
_gfortran_minloc0_4_i8;
|
|
|
|
|
_gfortran_minloc0_4_r10;
|
|
|
|
|
_gfortran_minloc0_4_r16;
|
|
|
|
|
_gfortran_minloc0_4_r4;
|
|
|
|
|
_gfortran_minloc0_4_r8;
|
|
|
|
|
_gfortran_minloc0_8_i1;
|
|
|
|
|
_gfortran_minloc0_8_i16;
|
|
|
|
|
_gfortran_minloc0_8_i2;
|
|
|
|
|
_gfortran_minloc0_8_i4;
|
|
|
|
|
_gfortran_minloc0_8_i8;
|
|
|
|
|
_gfortran_minloc0_8_r10;
|
|
|
|
|
_gfortran_minloc0_8_r16;
|
|
|
|
|
_gfortran_minloc0_8_r4;
|
|
|
|
|
_gfortran_minloc0_8_r8;
|
|
|
|
|
_gfortran_minloc1_16_i1;
|
|
|
|
|
_gfortran_minloc1_16_i16;
|
|
|
|
|
_gfortran_minloc1_16_i2;
|
|
|
|
|
_gfortran_minloc1_16_i4;
|
|
|
|
|
_gfortran_minloc1_16_i8;
|
|
|
|
|
_gfortran_minloc1_16_r10;
|
|
|
|
|
_gfortran_minloc1_16_r16;
|
|
|
|
|
_gfortran_minloc1_16_r4;
|
|
|
|
|
_gfortran_minloc1_16_r8;
|
|
|
|
|
_gfortran_minloc1_4_i1;
|
|
|
|
|
_gfortran_minloc1_4_i16;
|
|
|
|
|
_gfortran_minloc1_4_i2;
|
|
|
|
|
_gfortran_minloc1_4_i4;
|
|
|
|
|
_gfortran_minloc1_4_i8;
|
|
|
|
|
_gfortran_minloc1_4_r10;
|
|
|
|
|
_gfortran_minloc1_4_r16;
|
|
|
|
|
_gfortran_minloc1_4_r4;
|
|
|
|
|
_gfortran_minloc1_4_r8;
|
|
|
|
|
_gfortran_minloc1_8_i1;
|
|
|
|
|
_gfortran_minloc1_8_i16;
|
|
|
|
|
_gfortran_minloc1_8_i2;
|
|
|
|
|
_gfortran_minloc1_8_i4;
|
|
|
|
|
_gfortran_minloc1_8_i8;
|
|
|
|
|
_gfortran_minloc1_8_r10;
|
|
|
|
|
_gfortran_minloc1_8_r16;
|
|
|
|
|
_gfortran_minloc1_8_r4;
|
|
|
|
|
_gfortran_minloc1_8_r8;
|
|
|
|
|
_gfortran_minval_i1;
|
|
|
|
|
_gfortran_minval_i16;
|
|
|
|
|
_gfortran_minval_i2;
|
|
|
|
|
_gfortran_minval_i4;
|
|
|
|
|
_gfortran_minval_i8;
|
|
|
|
|
_gfortran_minval_r10;
|
|
|
|
|
_gfortran_minval_r16;
|
|
|
|
|
_gfortran_minval_r4;
|
|
|
|
|
_gfortran_minval_r8;
|
|
|
|
|
_gfortran_mmaxloc0_16_i1;
|
|
|
|
|
_gfortran_mmaxloc0_16_i16;
|
|
|
|
|
_gfortran_mmaxloc0_16_i2;
|
|
|
|
|
_gfortran_mmaxloc0_16_i4;
|
|
|
|
|
_gfortran_mmaxloc0_16_i8;
|
|
|
|
|
_gfortran_mmaxloc0_16_r10;
|
|
|
|
|
_gfortran_mmaxloc0_16_r16;
|
|
|
|
|
_gfortran_mmaxloc0_16_r4;
|
|
|
|
|
_gfortran_mmaxloc0_16_r8;
|
|
|
|
|
_gfortran_mmaxloc0_4_i1;
|
|
|
|
|
_gfortran_mmaxloc0_4_i16;
|
|
|
|
|
_gfortran_mmaxloc0_4_i2;
|
|
|
|
|
_gfortran_mmaxloc0_4_i4;
|
|
|
|
|
_gfortran_mmaxloc0_4_i8;
|
|
|
|
|
_gfortran_mmaxloc0_4_r10;
|
|
|
|
|
_gfortran_mmaxloc0_4_r16;
|
|
|
|
|
_gfortran_mmaxloc0_4_r4;
|
|
|
|
|
_gfortran_mmaxloc0_4_r8;
|
|
|
|
|
_gfortran_mmaxloc0_8_i1;
|
|
|
|
|
_gfortran_mmaxloc0_8_i16;
|
|
|
|
|
_gfortran_mmaxloc0_8_i2;
|
|
|
|
|
_gfortran_mmaxloc0_8_i4;
|
|
|
|
|
_gfortran_mmaxloc0_8_i8;
|
|
|
|
|
_gfortran_mmaxloc0_8_r10;
|
|
|
|
|
_gfortran_mmaxloc0_8_r16;
|
|
|
|
|
_gfortran_mmaxloc0_8_r4;
|
|
|
|
|
_gfortran_mmaxloc0_8_r8;
|
|
|
|
|
_gfortran_mmaxloc1_16_i1;
|
|
|
|
|
_gfortran_mmaxloc1_16_i16;
|
|
|
|
|
_gfortran_mmaxloc1_16_i2;
|
|
|
|
|
_gfortran_mmaxloc1_16_i4;
|
|
|
|
|
_gfortran_mmaxloc1_16_i8;
|
|
|
|
|
_gfortran_mmaxloc1_16_r10;
|
|
|
|
|
_gfortran_mmaxloc1_16_r16;
|
|
|
|
|
_gfortran_mmaxloc1_16_r4;
|
|
|
|
|
_gfortran_mmaxloc1_16_r8;
|
|
|
|
|
_gfortran_mmaxloc1_4_i1;
|
|
|
|
|
_gfortran_mmaxloc1_4_i16;
|
|
|
|
|
_gfortran_mmaxloc1_4_i2;
|
|
|
|
|
_gfortran_mmaxloc1_4_i4;
|
|
|
|
|
_gfortran_mmaxloc1_4_i8;
|
|
|
|
|
_gfortran_mmaxloc1_4_r10;
|
|
|
|
|
_gfortran_mmaxloc1_4_r16;
|
|
|
|
|
_gfortran_mmaxloc1_4_r4;
|
|
|
|
|
_gfortran_mmaxloc1_4_r8;
|
|
|
|
|
_gfortran_mmaxloc1_8_i1;
|
|
|
|
|
_gfortran_mmaxloc1_8_i16;
|
|
|
|
|
_gfortran_mmaxloc1_8_i2;
|
|
|
|
|
_gfortran_mmaxloc1_8_i4;
|
|
|
|
|
_gfortran_mmaxloc1_8_i8;
|
|
|
|
|
_gfortran_mmaxloc1_8_r10;
|
|
|
|
|
_gfortran_mmaxloc1_8_r16;
|
|
|
|
|
_gfortran_mmaxloc1_8_r4;
|
|
|
|
|
_gfortran_mmaxloc1_8_r8;
|
|
|
|
|
_gfortran_mmaxval_i1;
|
|
|
|
|
_gfortran_mmaxval_i16;
|
|
|
|
|
_gfortran_mmaxval_i2;
|
|
|
|
|
_gfortran_mmaxval_i4;
|
|
|
|
|
_gfortran_mmaxval_i8;
|
|
|
|
|
_gfortran_mmaxval_r10;
|
|
|
|
|
_gfortran_mmaxval_r16;
|
|
|
|
|
_gfortran_mmaxval_r4;
|
|
|
|
|
_gfortran_mmaxval_r8;
|
|
|
|
|
_gfortran_mminloc0_16_i1;
|
|
|
|
|
_gfortran_mminloc0_16_i16;
|
|
|
|
|
_gfortran_mminloc0_16_i2;
|
|
|
|
|
_gfortran_mminloc0_16_i4;
|
|
|
|
|
_gfortran_mminloc0_16_i8;
|
|
|
|
|
_gfortran_mminloc0_16_r10;
|
|
|
|
|
_gfortran_mminloc0_16_r16;
|
|
|
|
|
_gfortran_mminloc0_16_r4;
|
|
|
|
|
_gfortran_mminloc0_16_r8;
|
|
|
|
|
_gfortran_mminloc0_4_i1;
|
|
|
|
|
_gfortran_mminloc0_4_i16;
|
|
|
|
|
_gfortran_mminloc0_4_i2;
|
|
|
|
|
_gfortran_mminloc0_4_i4;
|
|
|
|
|
_gfortran_mminloc0_4_i8;
|
|
|
|
|
_gfortran_mminloc0_4_r10;
|
|
|
|
|
_gfortran_mminloc0_4_r16;
|
|
|
|
|
_gfortran_mminloc0_4_r4;
|
|
|
|
|
_gfortran_mminloc0_4_r8;
|
|
|
|
|
_gfortran_mminloc0_8_i1;
|
|
|
|
|
_gfortran_mminloc0_8_i16;
|
|
|
|
|
_gfortran_mminloc0_8_i2;
|
|
|
|
|
_gfortran_mminloc0_8_i4;
|
|
|
|
|
_gfortran_mminloc0_8_i8;
|
|
|
|
|
_gfortran_mminloc0_8_r10;
|
|
|
|
|
_gfortran_mminloc0_8_r16;
|
|
|
|
|
_gfortran_mminloc0_8_r4;
|
|
|
|
|
_gfortran_mminloc0_8_r8;
|
|
|
|
|
_gfortran_mminloc1_16_i1;
|
|
|
|
|
_gfortran_mminloc1_16_i16;
|
|
|
|
|
_gfortran_mminloc1_16_i2;
|
|
|
|
|
_gfortran_mminloc1_16_i4;
|
|
|
|
|
_gfortran_mminloc1_16_i8;
|
|
|
|
|
_gfortran_mminloc1_16_r10;
|
|
|
|
|
_gfortran_mminloc1_16_r16;
|
|
|
|
|
_gfortran_mminloc1_16_r4;
|
|
|
|
|
_gfortran_mminloc1_16_r8;
|
|
|
|
|
_gfortran_mminloc1_4_i1;
|
|
|
|
|
_gfortran_mminloc1_4_i16;
|
|
|
|
|
_gfortran_mminloc1_4_i2;
|
|
|
|
|
_gfortran_mminloc1_4_i4;
|
|
|
|
|
_gfortran_mminloc1_4_i8;
|
|
|
|
|
_gfortran_mminloc1_4_r10;
|
|
|
|
|
_gfortran_mminloc1_4_r16;
|
|
|
|
|
_gfortran_mminloc1_4_r4;
|
|
|
|
|
_gfortran_mminloc1_4_r8;
|
|
|
|
|
_gfortran_mminloc1_8_i1;
|
|
|
|
|
_gfortran_mminloc1_8_i16;
|
|
|
|
|
_gfortran_mminloc1_8_i2;
|
|
|
|
|
_gfortran_mminloc1_8_i4;
|
|
|
|
|
_gfortran_mminloc1_8_i8;
|
|
|
|
|
_gfortran_mminloc1_8_r10;
|
|
|
|
|
_gfortran_mminloc1_8_r16;
|
|
|
|
|
_gfortran_mminloc1_8_r4;
|
|
|
|
|
_gfortran_mminloc1_8_r8;
|
|
|
|
|
_gfortran_mminval_i1;
|
|
|
|
|
_gfortran_mminval_i16;
|
|
|
|
|
_gfortran_mminval_i2;
|
|
|
|
|
_gfortran_mminval_i4;
|
|
|
|
|
_gfortran_mminval_i8;
|
|
|
|
|
_gfortran_mminval_r10;
|
|
|
|
|
_gfortran_mminval_r16;
|
|
|
|
|
_gfortran_mminval_r4;
|
|
|
|
|
_gfortran_mminval_r8;
|
|
|
|
|
_gfortran_move_alloc;
|
|
|
|
|
_gfortran_move_alloc_c;
|
|
|
|
|
_gfortran_mproduct_c10;
|
|
|
|
|
_gfortran_mproduct_c16;
|
|
|
|
|
_gfortran_mproduct_c4;
|
|
|
|
|
_gfortran_mproduct_c8;
|
|
|
|
|
_gfortran_mproduct_i1;
|
|
|
|
|
_gfortran_mproduct_i16;
|
|
|
|
|
_gfortran_mproduct_i2;
|
|
|
|
|
_gfortran_mproduct_i4;
|
|
|
|
|
_gfortran_mproduct_i8;
|
|
|
|
|
_gfortran_mproduct_r10;
|
|
|
|
|
_gfortran_mproduct_r16;
|
|
|
|
|
_gfortran_mproduct_r4;
|
|
|
|
|
_gfortran_mproduct_r8;
|
|
|
|
|
_gfortran_msum_c10;
|
|
|
|
|
_gfortran_msum_c16;
|
|
|
|
|
_gfortran_msum_c4;
|
|
|
|
|
_gfortran_msum_c8;
|
|
|
|
|
_gfortran_msum_i1;
|
|
|
|
|
_gfortran_msum_i16;
|
|
|
|
|
_gfortran_msum_i2;
|
|
|
|
|
_gfortran_msum_i4;
|
|
|
|
|
_gfortran_msum_i8;
|
|
|
|
|
_gfortran_msum_r10;
|
|
|
|
|
_gfortran_msum_r16;
|
|
|
|
|
_gfortran_msum_r4;
|
|
|
|
|
_gfortran_msum_r8;
|
|
|
|
|
_gfortran_mvbits_i1;
|
|
|
|
|
_gfortran_mvbits_i2;
|
|
|
|
|
_gfortran_mvbits_i4;
|
|
|
|
|
_gfortran_mvbits_i8;
|
|
|
|
|
_gfortran_nearest_r10;
|
|
|
|
|
_gfortran_nearest_r16;
|
|
|
|
|
_gfortran_nearest_r4;
|
|
|
|
|
_gfortran_nearest_r8;
|
re PR fortran/30723 (Freeing memory doesn't need to call a library function)
PR fortran/30723
* trans.h (gfor_fndecl_internal_malloc, gfor_fndecl_internal_malloc64,
gfor_fndecl_internal_free): Remove prototypes.
(gfor_fndecl_os_error, gfc_call_free, gfc_call_malloc): Add prototypes.
* trans.c (gfc_call_malloc, gfc_call_free): New functions.
* f95-lang.c (gfc_init_builtin_functions): Add __builtin_free
and __builtin_malloc builtins.
* trans-decl.c (gfor_fndecl_internal_malloc,
gfor_fndecl_internal_malloc64, gfor_fndecl_internal_free): Remove.
(gfor_fndecl_os_error): Add.
(gfc_build_builtin_function_decls): Don't create internal_malloc,
internal_malloc64 and internal_free library function declaration.
Create os_error library call function declaration.
* trans-array.c (gfc_trans_allocate_array_storage,
gfc_trans_auto_array_allocation, gfc_trans_dummy_array_bias,
gfc_conv_array_parameter, gfc_duplicate_allocatable): Use
gfc_call_malloc and gfc_call_free instead of building calls to
internal_malloc and internal_free.
* trans-expr.c (gfc_conv_string_tmp): Likewise.
* trans-stmt.c (gfc_do_allocate, gfc_trans_assign_need_temp,
gfc_trans_pointer_assign_need_temp, gfc_trans_forall_1,
gfc_trans_where_2: Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime,
gfc_conv_intrinsic_fdate, gfc_conv_intrinsic_ttynam,
gfc_conv_intrinsic_array_transfer, gfc_conv_intrinsic_trim): Likewise.
* runtime/memory.c (internal_malloc, internal_malloc64,
internal_free): Remove.
* runtime/error.c (os_error): Export function.
* intrinsics/move_alloc.c: Include stdlib.h.
(move_alloc): Call free instead of internal_free.
(move_alloc_c): Wrap long lines.
* libgfortran.h (os_error): Export prototype.
(internal_free): Remove prototype.
* gfortran.map (GFORTRAN_1.0): Remove _gfortran_internal_free,
_gfortran_internal_malloc and _gfortran_internal_malloc64.
Add _gfortran_os_error.
From-SVN: r124721
2007-05-15 03:33:57 +08:00
|
|
|
_gfortran_os_error;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_pack;
|
|
|
|
|
_gfortran_pack_char;
|
|
|
|
|
_gfortran_pack_s;
|
|
|
|
|
_gfortran_pack_s_char;
|
|
|
|
|
_gfortran_pause_numeric;
|
|
|
|
|
_gfortran_pause_string;
|
|
|
|
|
_gfortran_perror_sub;
|
|
|
|
|
_gfortran_pow_c10_i16;
|
|
|
|
|
_gfortran_pow_c10_i4;
|
|
|
|
|
_gfortran_pow_c10_i8;
|
|
|
|
|
_gfortran_pow_c16_i16;
|
|
|
|
|
_gfortran_pow_c16_i4;
|
|
|
|
|
_gfortran_pow_c16_i8;
|
|
|
|
|
_gfortran_pow_c4_i16;
|
|
|
|
|
_gfortran_pow_c4_i4;
|
|
|
|
|
_gfortran_pow_c4_i8;
|
|
|
|
|
_gfortran_pow_c8_i16;
|
|
|
|
|
_gfortran_pow_c8_i4;
|
|
|
|
|
_gfortran_pow_c8_i8;
|
|
|
|
|
_gfortran_pow_i16_i16;
|
|
|
|
|
_gfortran_pow_i16_i4;
|
|
|
|
|
_gfortran_pow_i16_i8;
|
|
|
|
|
_gfortran_pow_i4_i16;
|
|
|
|
|
_gfortran_pow_i4_i4;
|
|
|
|
|
_gfortran_pow_i4_i8;
|
|
|
|
|
_gfortran_pow_i8_i16;
|
|
|
|
|
_gfortran_pow_i8_i4;
|
|
|
|
|
_gfortran_pow_i8_i8;
|
|
|
|
|
_gfortran_pow_r10_i16;
|
|
|
|
|
_gfortran_pow_r10_i8;
|
|
|
|
|
_gfortran_pow_r16_i16;
|
|
|
|
|
_gfortran_pow_r16_i8;
|
|
|
|
|
_gfortran_pow_r4_i16;
|
|
|
|
|
_gfortran_pow_r4_i8;
|
|
|
|
|
_gfortran_pow_r8_i16;
|
|
|
|
|
_gfortran_pow_r8_i8;
|
|
|
|
|
_gfortran_product_c10;
|
|
|
|
|
_gfortran_product_c16;
|
|
|
|
|
_gfortran_product_c4;
|
|
|
|
|
_gfortran_product_c8;
|
|
|
|
|
_gfortran_product_i1;
|
|
|
|
|
_gfortran_product_i16;
|
|
|
|
|
_gfortran_product_i2;
|
|
|
|
|
_gfortran_product_i4;
|
|
|
|
|
_gfortran_product_i8;
|
|
|
|
|
_gfortran_product_r10;
|
|
|
|
|
_gfortran_product_r16;
|
|
|
|
|
_gfortran_product_r4;
|
|
|
|
|
_gfortran_product_r8;
|
|
|
|
|
_gfortran_rand;
|
|
|
|
|
_gfortran_random_r10;
|
|
|
|
|
_gfortran_random_r16;
|
|
|
|
|
_gfortran_random_r4;
|
|
|
|
|
_gfortran_random_r8;
|
2007-08-13 04:45:29 +08:00
|
|
|
_gfortran_random_seed_i4;
|
|
|
|
|
_gfortran_random_seed_i8;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_rename_i4;
|
|
|
|
|
_gfortran_rename_i4_sub;
|
|
|
|
|
_gfortran_rename_i8;
|
|
|
|
|
_gfortran_rename_i8_sub;
|
|
|
|
|
_gfortran_reshape;
|
|
|
|
|
_gfortran_reshape_16;
|
|
|
|
|
_gfortran_reshape_4;
|
|
|
|
|
_gfortran_reshape_8;
|
|
|
|
|
_gfortran_reshape_c10;
|
|
|
|
|
_gfortran_reshape_c16;
|
|
|
|
|
_gfortran_reshape_c4;
|
|
|
|
|
_gfortran_reshape_c8;
|
|
|
|
|
_gfortran_reshape_char;
|
|
|
|
|
_gfortran_reshape_r10;
|
|
|
|
|
_gfortran_reshape_r16;
|
|
|
|
|
_gfortran_reshape_r4;
|
|
|
|
|
_gfortran_reshape_r8;
|
|
|
|
|
_gfortran_rrspacing_r10;
|
|
|
|
|
_gfortran_rrspacing_r16;
|
|
|
|
|
_gfortran_rrspacing_r4;
|
|
|
|
|
_gfortran_rrspacing_r8;
|
|
|
|
|
_gfortran_runtime_error;
|
2007-05-07 06:28:31 +08:00
|
|
|
_gfortran_runtime_error_at;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_secnds;
|
|
|
|
|
_gfortran_second;
|
|
|
|
|
_gfortran_second_sub;
|
|
|
|
|
_gfortran_selected_int_kind;
|
|
|
|
|
_gfortran_selected_real_kind;
|
|
|
|
|
_gfortran_select_string;
|
|
|
|
|
_gfortran_set_args;
|
|
|
|
|
_gfortran_set_convert;
|
|
|
|
|
_gfortran_set_exponent_r10;
|
|
|
|
|
_gfortran_set_exponent_r16;
|
|
|
|
|
_gfortran_set_exponent_r4;
|
|
|
|
|
_gfortran_set_exponent_r8;
|
|
|
|
|
_gfortran_set_fpe;
|
|
|
|
|
_gfortran_set_max_subrecord_length;
|
|
|
|
|
_gfortran_set_record_marker;
|
2007-07-16 00:26:22 +08:00
|
|
|
_gfortran_set_options;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_shape_16;
|
|
|
|
|
_gfortran_shape_4;
|
|
|
|
|
_gfortran_shape_8;
|
|
|
|
|
_gfortran_signal_func;
|
|
|
|
|
_gfortran_signal_func_int;
|
|
|
|
|
_gfortran_signal_sub;
|
|
|
|
|
_gfortran_signal_sub_int;
|
|
|
|
|
_gfortran_size0;
|
|
|
|
|
_gfortran_size1;
|
|
|
|
|
_gfortran_sleep_i4_sub;
|
|
|
|
|
_gfortran_sleep_i8_sub;
|
|
|
|
|
_gfortran_smaxloc0_16_i1;
|
|
|
|
|
_gfortran_smaxloc0_16_i16;
|
|
|
|
|
_gfortran_smaxloc0_16_i2;
|
|
|
|
|
_gfortran_smaxloc0_16_i4;
|
|
|
|
|
_gfortran_smaxloc0_16_i8;
|
|
|
|
|
_gfortran_smaxloc0_16_r10;
|
|
|
|
|
_gfortran_smaxloc0_16_r16;
|
|
|
|
|
_gfortran_smaxloc0_16_r4;
|
|
|
|
|
_gfortran_smaxloc0_16_r8;
|
|
|
|
|
_gfortran_smaxloc0_4_i1;
|
|
|
|
|
_gfortran_smaxloc0_4_i16;
|
|
|
|
|
_gfortran_smaxloc0_4_i2;
|
|
|
|
|
_gfortran_smaxloc0_4_i4;
|
|
|
|
|
_gfortran_smaxloc0_4_i8;
|
|
|
|
|
_gfortran_smaxloc0_4_r10;
|
|
|
|
|
_gfortran_smaxloc0_4_r16;
|
|
|
|
|
_gfortran_smaxloc0_4_r4;
|
|
|
|
|
_gfortran_smaxloc0_4_r8;
|
|
|
|
|
_gfortran_smaxloc0_8_i1;
|
|
|
|
|
_gfortran_smaxloc0_8_i16;
|
|
|
|
|
_gfortran_smaxloc0_8_i2;
|
|
|
|
|
_gfortran_smaxloc0_8_i4;
|
|
|
|
|
_gfortran_smaxloc0_8_i8;
|
|
|
|
|
_gfortran_smaxloc0_8_r10;
|
|
|
|
|
_gfortran_smaxloc0_8_r16;
|
|
|
|
|
_gfortran_smaxloc0_8_r4;
|
|
|
|
|
_gfortran_smaxloc0_8_r8;
|
|
|
|
|
_gfortran_smaxloc1_16_i1;
|
|
|
|
|
_gfortran_smaxloc1_16_i16;
|
|
|
|
|
_gfortran_smaxloc1_16_i2;
|
|
|
|
|
_gfortran_smaxloc1_16_i4;
|
|
|
|
|
_gfortran_smaxloc1_16_i8;
|
|
|
|
|
_gfortran_smaxloc1_16_r10;
|
|
|
|
|
_gfortran_smaxloc1_16_r16;
|
|
|
|
|
_gfortran_smaxloc1_16_r4;
|
|
|
|
|
_gfortran_smaxloc1_16_r8;
|
|
|
|
|
_gfortran_smaxloc1_4_i1;
|
|
|
|
|
_gfortran_smaxloc1_4_i16;
|
|
|
|
|
_gfortran_smaxloc1_4_i2;
|
|
|
|
|
_gfortran_smaxloc1_4_i4;
|
|
|
|
|
_gfortran_smaxloc1_4_i8;
|
|
|
|
|
_gfortran_smaxloc1_4_r10;
|
|
|
|
|
_gfortran_smaxloc1_4_r16;
|
|
|
|
|
_gfortran_smaxloc1_4_r4;
|
|
|
|
|
_gfortran_smaxloc1_4_r8;
|
|
|
|
|
_gfortran_smaxloc1_8_i1;
|
|
|
|
|
_gfortran_smaxloc1_8_i16;
|
|
|
|
|
_gfortran_smaxloc1_8_i2;
|
|
|
|
|
_gfortran_smaxloc1_8_i4;
|
|
|
|
|
_gfortran_smaxloc1_8_i8;
|
|
|
|
|
_gfortran_smaxloc1_8_r10;
|
|
|
|
|
_gfortran_smaxloc1_8_r16;
|
|
|
|
|
_gfortran_smaxloc1_8_r4;
|
|
|
|
|
_gfortran_smaxloc1_8_r8;
|
|
|
|
|
_gfortran_smaxval_i1;
|
|
|
|
|
_gfortran_smaxval_i16;
|
|
|
|
|
_gfortran_smaxval_i2;
|
|
|
|
|
_gfortran_smaxval_i4;
|
|
|
|
|
_gfortran_smaxval_i8;
|
|
|
|
|
_gfortran_smaxval_r10;
|
|
|
|
|
_gfortran_smaxval_r16;
|
|
|
|
|
_gfortran_smaxval_r4;
|
|
|
|
|
_gfortran_smaxval_r8;
|
|
|
|
|
_gfortran_sminloc0_16_i1;
|
|
|
|
|
_gfortran_sminloc0_16_i16;
|
|
|
|
|
_gfortran_sminloc0_16_i2;
|
|
|
|
|
_gfortran_sminloc0_16_i4;
|
|
|
|
|
_gfortran_sminloc0_16_i8;
|
|
|
|
|
_gfortran_sminloc0_16_r10;
|
|
|
|
|
_gfortran_sminloc0_16_r16;
|
|
|
|
|
_gfortran_sminloc0_16_r4;
|
|
|
|
|
_gfortran_sminloc0_16_r8;
|
|
|
|
|
_gfortran_sminloc0_4_i1;
|
|
|
|
|
_gfortran_sminloc0_4_i16;
|
|
|
|
|
_gfortran_sminloc0_4_i2;
|
|
|
|
|
_gfortran_sminloc0_4_i4;
|
|
|
|
|
_gfortran_sminloc0_4_i8;
|
|
|
|
|
_gfortran_sminloc0_4_r10;
|
|
|
|
|
_gfortran_sminloc0_4_r16;
|
|
|
|
|
_gfortran_sminloc0_4_r4;
|
|
|
|
|
_gfortran_sminloc0_4_r8;
|
|
|
|
|
_gfortran_sminloc0_8_i1;
|
|
|
|
|
_gfortran_sminloc0_8_i16;
|
|
|
|
|
_gfortran_sminloc0_8_i2;
|
|
|
|
|
_gfortran_sminloc0_8_i4;
|
|
|
|
|
_gfortran_sminloc0_8_i8;
|
|
|
|
|
_gfortran_sminloc0_8_r10;
|
|
|
|
|
_gfortran_sminloc0_8_r16;
|
|
|
|
|
_gfortran_sminloc0_8_r4;
|
|
|
|
|
_gfortran_sminloc0_8_r8;
|
|
|
|
|
_gfortran_sminloc1_16_i1;
|
|
|
|
|
_gfortran_sminloc1_16_i16;
|
|
|
|
|
_gfortran_sminloc1_16_i2;
|
|
|
|
|
_gfortran_sminloc1_16_i4;
|
|
|
|
|
_gfortran_sminloc1_16_i8;
|
|
|
|
|
_gfortran_sminloc1_16_r10;
|
|
|
|
|
_gfortran_sminloc1_16_r16;
|
|
|
|
|
_gfortran_sminloc1_16_r4;
|
|
|
|
|
_gfortran_sminloc1_16_r8;
|
|
|
|
|
_gfortran_sminloc1_4_i1;
|
|
|
|
|
_gfortran_sminloc1_4_i16;
|
|
|
|
|
_gfortran_sminloc1_4_i2;
|
|
|
|
|
_gfortran_sminloc1_4_i4;
|
|
|
|
|
_gfortran_sminloc1_4_i8;
|
|
|
|
|
_gfortran_sminloc1_4_r10;
|
|
|
|
|
_gfortran_sminloc1_4_r16;
|
|
|
|
|
_gfortran_sminloc1_4_r4;
|
|
|
|
|
_gfortran_sminloc1_4_r8;
|
|
|
|
|
_gfortran_sminloc1_8_i1;
|
|
|
|
|
_gfortran_sminloc1_8_i16;
|
|
|
|
|
_gfortran_sminloc1_8_i2;
|
|
|
|
|
_gfortran_sminloc1_8_i4;
|
|
|
|
|
_gfortran_sminloc1_8_i8;
|
|
|
|
|
_gfortran_sminloc1_8_r10;
|
|
|
|
|
_gfortran_sminloc1_8_r16;
|
|
|
|
|
_gfortran_sminloc1_8_r4;
|
|
|
|
|
_gfortran_sminloc1_8_r8;
|
|
|
|
|
_gfortran_sminval_i1;
|
|
|
|
|
_gfortran_sminval_i16;
|
|
|
|
|
_gfortran_sminval_i2;
|
|
|
|
|
_gfortran_sminval_i4;
|
|
|
|
|
_gfortran_sminval_i8;
|
|
|
|
|
_gfortran_sminval_r10;
|
|
|
|
|
_gfortran_sminval_r16;
|
|
|
|
|
_gfortran_sminval_r4;
|
|
|
|
|
_gfortran_sminval_r8;
|
|
|
|
|
_gfortran_spacing_r10;
|
|
|
|
|
_gfortran_spacing_r16;
|
|
|
|
|
_gfortran_spacing_r4;
|
|
|
|
|
_gfortran_spacing_r8;
|
|
|
|
|
_gfortran_specific__abs_c10;
|
|
|
|
|
_gfortran_specific__abs_c16;
|
|
|
|
|
_gfortran_specific__abs_c4;
|
|
|
|
|
_gfortran_specific__abs_c8;
|
|
|
|
|
_gfortran_specific__abs_i16;
|
|
|
|
|
_gfortran_specific__abs_i4;
|
|
|
|
|
_gfortran_specific__abs_i8;
|
|
|
|
|
_gfortran_specific__abs_r10;
|
|
|
|
|
_gfortran_specific__abs_r16;
|
|
|
|
|
_gfortran_specific__abs_r4;
|
|
|
|
|
_gfortran_specific__abs_r8;
|
|
|
|
|
_gfortran_specific__acosh_r10;
|
|
|
|
|
_gfortran_specific__acosh_r16;
|
|
|
|
|
_gfortran_specific__acosh_r4;
|
|
|
|
|
_gfortran_specific__acosh_r8;
|
|
|
|
|
_gfortran_specific__acos_r10;
|
|
|
|
|
_gfortran_specific__acos_r16;
|
|
|
|
|
_gfortran_specific__acos_r4;
|
|
|
|
|
_gfortran_specific__acos_r8;
|
|
|
|
|
_gfortran_specific__aimag_c10;
|
|
|
|
|
_gfortran_specific__aimag_c16;
|
|
|
|
|
_gfortran_specific__aimag_c4;
|
|
|
|
|
_gfortran_specific__aimag_c8;
|
|
|
|
|
_gfortran_specific__aint_r10;
|
|
|
|
|
_gfortran_specific__aint_r16;
|
|
|
|
|
_gfortran_specific__aint_r4;
|
|
|
|
|
_gfortran_specific__aint_r8;
|
|
|
|
|
_gfortran_specific__anint_r10;
|
|
|
|
|
_gfortran_specific__anint_r16;
|
|
|
|
|
_gfortran_specific__anint_r4;
|
|
|
|
|
_gfortran_specific__anint_r8;
|
|
|
|
|
_gfortran_specific__asinh_r10;
|
|
|
|
|
_gfortran_specific__asinh_r16;
|
|
|
|
|
_gfortran_specific__asinh_r4;
|
|
|
|
|
_gfortran_specific__asinh_r8;
|
|
|
|
|
_gfortran_specific__asin_r10;
|
|
|
|
|
_gfortran_specific__asin_r16;
|
|
|
|
|
_gfortran_specific__asin_r4;
|
|
|
|
|
_gfortran_specific__asin_r8;
|
|
|
|
|
_gfortran_specific__atan2_r10;
|
|
|
|
|
_gfortran_specific__atan2_r16;
|
|
|
|
|
_gfortran_specific__atan2_r4;
|
|
|
|
|
_gfortran_specific__atan2_r8;
|
|
|
|
|
_gfortran_specific__atanh_r10;
|
|
|
|
|
_gfortran_specific__atanh_r16;
|
|
|
|
|
_gfortran_specific__atanh_r4;
|
|
|
|
|
_gfortran_specific__atanh_r8;
|
|
|
|
|
_gfortran_specific__atan_r10;
|
|
|
|
|
_gfortran_specific__atan_r16;
|
|
|
|
|
_gfortran_specific__atan_r4;
|
|
|
|
|
_gfortran_specific__atan_r8;
|
|
|
|
|
_gfortran_specific__char_1_i16;
|
|
|
|
|
_gfortran_specific__char_1_i4;
|
|
|
|
|
_gfortran_specific__char_1_i8;
|
|
|
|
|
_gfortran_specific__conjg_10;
|
|
|
|
|
_gfortran_specific__conjg_16;
|
|
|
|
|
_gfortran_specific__conjg_4;
|
|
|
|
|
_gfortran_specific__conjg_8;
|
|
|
|
|
_gfortran_specific__cos_c10;
|
|
|
|
|
_gfortran_specific__cos_c16;
|
|
|
|
|
_gfortran_specific__cos_c4;
|
|
|
|
|
_gfortran_specific__cos_c8;
|
|
|
|
|
_gfortran_specific__cosh_r10;
|
|
|
|
|
_gfortran_specific__cosh_r16;
|
|
|
|
|
_gfortran_specific__cosh_r4;
|
|
|
|
|
_gfortran_specific__cosh_r8;
|
|
|
|
|
_gfortran_specific__cos_r10;
|
|
|
|
|
_gfortran_specific__cos_r16;
|
|
|
|
|
_gfortran_specific__cos_r4;
|
|
|
|
|
_gfortran_specific__cos_r8;
|
|
|
|
|
_gfortran_specific__dim_i16;
|
|
|
|
|
_gfortran_specific__dim_i4;
|
|
|
|
|
_gfortran_specific__dim_i8;
|
|
|
|
|
_gfortran_specific__dim_r10;
|
|
|
|
|
_gfortran_specific__dim_r16;
|
|
|
|
|
_gfortran_specific__dim_r4;
|
|
|
|
|
_gfortran_specific__dim_r8;
|
|
|
|
|
_gfortran_specific__dprod_r8;
|
|
|
|
|
_gfortran_specific__exp_c10;
|
|
|
|
|
_gfortran_specific__exp_c16;
|
|
|
|
|
_gfortran_specific__exp_c4;
|
|
|
|
|
_gfortran_specific__exp_c8;
|
|
|
|
|
_gfortran_specific__exp_r10;
|
|
|
|
|
_gfortran_specific__exp_r16;
|
|
|
|
|
_gfortran_specific__exp_r4;
|
|
|
|
|
_gfortran_specific__exp_r8;
|
|
|
|
|
_gfortran_specific__index_1_i16;
|
|
|
|
|
_gfortran_specific__index_1_i4;
|
|
|
|
|
_gfortran_specific__index_1_i8;
|
|
|
|
|
_gfortran_specific__len_1_i16;
|
|
|
|
|
_gfortran_specific__len_1_i4;
|
|
|
|
|
_gfortran_specific__len_1_i8;
|
|
|
|
|
_gfortran_specific__log10_r10;
|
|
|
|
|
_gfortran_specific__log10_r16;
|
|
|
|
|
_gfortran_specific__log10_r4;
|
|
|
|
|
_gfortran_specific__log10_r8;
|
|
|
|
|
_gfortran_specific__log_c10;
|
|
|
|
|
_gfortran_specific__log_c16;
|
|
|
|
|
_gfortran_specific__log_c4;
|
|
|
|
|
_gfortran_specific__log_c8;
|
|
|
|
|
_gfortran_specific__log_r10;
|
|
|
|
|
_gfortran_specific__log_r16;
|
|
|
|
|
_gfortran_specific__log_r4;
|
|
|
|
|
_gfortran_specific__log_r8;
|
|
|
|
|
_gfortran_specific__mod_i16;
|
|
|
|
|
_gfortran_specific__mod_i4;
|
|
|
|
|
_gfortran_specific__mod_i8;
|
|
|
|
|
_gfortran_specific__mod_r10;
|
|
|
|
|
_gfortran_specific__mod_r16;
|
|
|
|
|
_gfortran_specific__mod_r4;
|
|
|
|
|
_gfortran_specific__mod_r8;
|
|
|
|
|
_gfortran_specific__nint_16_10;
|
|
|
|
|
_gfortran_specific__nint_16_16;
|
|
|
|
|
_gfortran_specific__nint_16_4;
|
|
|
|
|
_gfortran_specific__nint_16_8;
|
|
|
|
|
_gfortran_specific__nint_4_10;
|
|
|
|
|
_gfortran_specific__nint_4_16;
|
|
|
|
|
_gfortran_specific__nint_4_4;
|
|
|
|
|
_gfortran_specific__nint_4_8;
|
|
|
|
|
_gfortran_specific__nint_8_10;
|
|
|
|
|
_gfortran_specific__nint_8_16;
|
|
|
|
|
_gfortran_specific__nint_8_4;
|
|
|
|
|
_gfortran_specific__nint_8_8;
|
|
|
|
|
_gfortran_specific__sign_i16;
|
|
|
|
|
_gfortran_specific__sign_i4;
|
|
|
|
|
_gfortran_specific__sign_i8;
|
|
|
|
|
_gfortran_specific__sign_r10;
|
|
|
|
|
_gfortran_specific__sign_r16;
|
|
|
|
|
_gfortran_specific__sign_r4;
|
|
|
|
|
_gfortran_specific__sign_r8;
|
|
|
|
|
_gfortran_specific__sin_c10;
|
|
|
|
|
_gfortran_specific__sin_c16;
|
|
|
|
|
_gfortran_specific__sin_c4;
|
|
|
|
|
_gfortran_specific__sin_c8;
|
|
|
|
|
_gfortran_specific__sinh_r10;
|
|
|
|
|
_gfortran_specific__sinh_r16;
|
|
|
|
|
_gfortran_specific__sinh_r4;
|
|
|
|
|
_gfortran_specific__sinh_r8;
|
|
|
|
|
_gfortran_specific__sin_r10;
|
|
|
|
|
_gfortran_specific__sin_r16;
|
|
|
|
|
_gfortran_specific__sin_r4;
|
|
|
|
|
_gfortran_specific__sin_r8;
|
|
|
|
|
_gfortran_specific__sqrt_c10;
|
|
|
|
|
_gfortran_specific__sqrt_c16;
|
|
|
|
|
_gfortran_specific__sqrt_c4;
|
|
|
|
|
_gfortran_specific__sqrt_c8;
|
|
|
|
|
_gfortran_specific__sqrt_r10;
|
|
|
|
|
_gfortran_specific__sqrt_r16;
|
|
|
|
|
_gfortran_specific__sqrt_r4;
|
|
|
|
|
_gfortran_specific__sqrt_r8;
|
|
|
|
|
_gfortran_specific__tanh_r10;
|
|
|
|
|
_gfortran_specific__tanh_r16;
|
|
|
|
|
_gfortran_specific__tanh_r4;
|
|
|
|
|
_gfortran_specific__tanh_r8;
|
|
|
|
|
_gfortran_specific__tan_r10;
|
|
|
|
|
_gfortran_specific__tan_r16;
|
|
|
|
|
_gfortran_specific__tan_r4;
|
|
|
|
|
_gfortran_specific__tan_r8;
|
|
|
|
|
_gfortran_spread;
|
|
|
|
|
_gfortran_spread_char;
|
|
|
|
|
_gfortran_spread_char_scalar;
|
|
|
|
|
_gfortran_spread_scalar;
|
|
|
|
|
_gfortran_sproduct_c10;
|
|
|
|
|
_gfortran_sproduct_c16;
|
|
|
|
|
_gfortran_sproduct_c4;
|
|
|
|
|
_gfortran_sproduct_c8;
|
|
|
|
|
_gfortran_sproduct_i1;
|
|
|
|
|
_gfortran_sproduct_i16;
|
|
|
|
|
_gfortran_sproduct_i2;
|
|
|
|
|
_gfortran_sproduct_i4;
|
|
|
|
|
_gfortran_sproduct_i8;
|
|
|
|
|
_gfortran_sproduct_r10;
|
|
|
|
|
_gfortran_sproduct_r16;
|
|
|
|
|
_gfortran_sproduct_r4;
|
|
|
|
|
_gfortran_sproduct_r8;
|
|
|
|
|
_gfortran_srand;
|
|
|
|
|
_gfortran_ssum_c10;
|
|
|
|
|
_gfortran_ssum_c16;
|
|
|
|
|
_gfortran_ssum_c4;
|
|
|
|
|
_gfortran_ssum_c8;
|
|
|
|
|
_gfortran_ssum_i1;
|
|
|
|
|
_gfortran_ssum_i16;
|
|
|
|
|
_gfortran_ssum_i2;
|
|
|
|
|
_gfortran_ssum_i4;
|
|
|
|
|
_gfortran_ssum_i8;
|
|
|
|
|
_gfortran_ssum_r10;
|
|
|
|
|
_gfortran_ssum_r16;
|
|
|
|
|
_gfortran_ssum_r4;
|
|
|
|
|
_gfortran_ssum_r8;
|
|
|
|
|
_gfortran_stat_i4;
|
|
|
|
|
_gfortran_stat_i4_sub;
|
|
|
|
|
_gfortran_stat_i8;
|
|
|
|
|
_gfortran_stat_i8_sub;
|
|
|
|
|
_gfortran_st_backspace;
|
|
|
|
|
_gfortran_st_close;
|
|
|
|
|
_gfortran_st_endfile;
|
|
|
|
|
_gfortran_st_flush;
|
|
|
|
|
_gfortran_st_inquire;
|
|
|
|
|
_gfortran_st_iolength;
|
|
|
|
|
_gfortran_st_iolength_done;
|
|
|
|
|
_gfortran_st_open;
|
|
|
|
|
_gfortran_stop_numeric;
|
|
|
|
|
_gfortran_stop_string;
|
|
|
|
|
_gfortran_store_exe_path;
|
|
|
|
|
_gfortran_st_read;
|
|
|
|
|
_gfortran_st_read_done;
|
|
|
|
|
_gfortran_st_rewind;
|
|
|
|
|
_gfortran_string_index;
|
|
|
|
|
_gfortran_string_len_trim;
|
2007-08-07 04:47:17 +08:00
|
|
|
_gfortran_string_minmax;
|
2007-04-24 17:08:52 +08:00
|
|
|
_gfortran_string_scan;
|
|
|
|
|
_gfortran_string_trim;
|
|
|
|
|
_gfortran_string_verify;
|
|
|
|
|
_gfortran_st_set_nml_var;
|
|
|
|
|
_gfortran_st_set_nml_var_dim;
|
|
|
|
|
_gfortran_st_write;
|
|
|
|
|
_gfortran_st_write_done;
|
|
|
|
|
_gfortran_sum_c10;
|
|
|
|
|
_gfortran_sum_c16;
|
|
|
|
|
_gfortran_sum_c4;
|
|
|
|
|
_gfortran_sum_c8;
|
|
|
|
|
_gfortran_sum_i1;
|
|
|
|
|
_gfortran_sum_i16;
|
|
|
|
|
_gfortran_sum_i2;
|
|
|
|
|
_gfortran_sum_i4;
|
|
|
|
|
_gfortran_sum_i8;
|
|
|
|
|
_gfortran_sum_r10;
|
|
|
|
|
_gfortran_sum_r16;
|
|
|
|
|
_gfortran_sum_r4;
|
|
|
|
|
_gfortran_sum_r8;
|
|
|
|
|
_gfortran_symlnk_i4;
|
|
|
|
|
_gfortran_symlnk_i4_sub;
|
|
|
|
|
_gfortran_symlnk_i8;
|
|
|
|
|
_gfortran_symlnk_i8_sub;
|
|
|
|
|
_gfortran_system;
|
|
|
|
|
_gfortran_system_clock_4;
|
|
|
|
|
_gfortran_system_clock_8;
|
|
|
|
|
_gfortran_system_sub;
|
|
|
|
|
_gfortran_time8_func;
|
|
|
|
|
_gfortran_time_func;
|
|
|
|
|
_gfortran_transfer_array;
|
|
|
|
|
_gfortran_transfer_character;
|
|
|
|
|
_gfortran_transfer_complex;
|
|
|
|
|
_gfortran_transfer_integer;
|
|
|
|
|
_gfortran_transfer_logical;
|
|
|
|
|
_gfortran_transfer_real;
|
|
|
|
|
_gfortran_transpose;
|
|
|
|
|
_gfortran_transpose_c10;
|
|
|
|
|
_gfortran_transpose_c16;
|
|
|
|
|
_gfortran_transpose_c4;
|
|
|
|
|
_gfortran_transpose_c8;
|
|
|
|
|
_gfortran_transpose_char;
|
|
|
|
|
_gfortran_transpose_i16;
|
|
|
|
|
_gfortran_transpose_i4;
|
|
|
|
|
_gfortran_transpose_i8;
|
|
|
|
|
_gfortran_transpose_r10;
|
|
|
|
|
_gfortran_transpose_r16;
|
|
|
|
|
_gfortran_transpose_r4;
|
|
|
|
|
_gfortran_transpose_r8;
|
|
|
|
|
_gfortran_ttynam;
|
|
|
|
|
_gfortran_ttynam_sub;
|
|
|
|
|
_gfortran_umask_i4;
|
|
|
|
|
_gfortran_umask_i4_sub;
|
|
|
|
|
_gfortran_umask_i8;
|
|
|
|
|
_gfortran_umask_i8_sub;
|
|
|
|
|
_gfortran_unlink;
|
|
|
|
|
_gfortran_unlink_i4_sub;
|
|
|
|
|
_gfortran_unlink_i8_sub;
|
|
|
|
|
_gfortran_unpack0;
|
|
|
|
|
_gfortran_unpack0_char;
|
|
|
|
|
_gfortran_unpack1;
|
|
|
|
|
_gfortran_unpack1_char;
|
[multiple changes]
2007-07-01 Christopher D. Rickett <crickett@lanl.gov>
* interface.c (gfc_compare_derived_types): Special case for comparing
derived types across namespaces.
(gfc_compare_types): Deal with BT_VOID.
(compare_parameter): Use BT_VOID to accept ISO C Binding pointers.
* trans-expr.c (gfc_conv_function_call): Remove setting parm_kind
to SCALAR
(gfc_conv_initializer): Deal with ISO C Binding NULL_PTR and
NULL_FUNPTR.
(gfc_conv_expr): Convert expressions for ISO C Binding derived types.
* symbol.c (gfc_set_default_type): BIND(C) variables should not be
implicitly declared.
(check_conflict): Add BIND(C) and check for conflicts.
(gfc_add_explicit_interface): Whitespace.
(gfc_add_is_bind_c): New function.
(gfc_copy_attr): Use it.
(gfc_new_symbol): Initialize ISO C Binding objects.
(get_iso_c_binding_dt): New function.
(verify_bind_c_derived_type): Ditto.
(gen_special_c_interop_ptr): Ditto.
(add_formal_arg): Ditto.
(gen_cptr_param): Ditto.
(gen_fptr_param): Ditto.
(gen_shape_param): Ditto.
(add_proc_interface): Ditto.
(build_formal_args): Ditto.
(generate_isocbinding_symbol): Ditto.
(get_iso_c_sym): Ditto.
* decl.c (num_idents_on_line, has_name_equals): New variables.
(verify_c_interop_param): New function.
(build_sym): Finish binding labels and deal with COMMON blocks.
(add_init_expr_to_sym): Check if the initialized expression is
an iso_c_binding named constants
(variable_decl): Set ISO C Binding type_spec components.
(gfc_match_kind_spec): Check match for C interoperable kind.
(match_char_spec): Fix comment. Chnage gfc_match_small_int
to gfc_match_small_int_expr. Check for C interoperable kind.
(match_type_spec): Clear the current binding label.
(match_attr_spec): Add DECL_IS_BIND_C. If BIND(C) is found, use it
to set attributes.
(set_binding_label): New function.
(set_com_block_bind_c): Ditto.
(verify_c_interop): Ditto.
(verify_com_block_vars_c_interop): Ditto.
(verify_bind_c_sym): Ditto.
(set_verify_bind_c_sym): Ditto.
(set_verify_bind_c_com_block): Ditto.
(get_bind_c_idents): Ditto.
(gfc_match_bind_c_stmt): Ditto.
(gfc_match_data_decl): Use num_idents_on_line.
(match_result): Deal with right paren in BIND(C).
(gfc_match_suffix): New function.
(gfc_match_function_decl): Use it. Code is re-arranged to deal with
ISO C Binding result clauses.
(gfc_match_subroutine): Deal with BIND(C).
(gfc_match_bind_c): New function.
(gfc_get_type_attr_spec): New function. Code is re-arranged in and
taken from gfc_match_derived_decl.
(gfc_match_derived_decl): Add check for BIND(C).
* trans-common.c: Forward declare gfc_get_common.
(gfc_sym_mangled_common_id): Change arg from 'const char *name' to
'gfc_common_head *com'. Check for ISO C Binding of the common block.
(build_common_decl): 'com->name' to 'com in SET_DECL_ASSEMBLER_NAME.
* gfortran.h: Add GFC_MAX_BINDING_LABEL_LEN
(bt): Add BT_VOID
(sym_flavor): Add FL_VOID.
(iso_fortran_env_symbol, iso_c_binding_symbol, intmod_id): New enum
(CInteropKind_t): New struct.
(c_interop_kinds_table): Use it. Declare an array of structs.
(symbol_attribute): Add is_bind_c, is_c_interop, and is_iso_c
bitfields.
(gfc_typespec): Add is_c_interop; is_iso_c, and f90_type members.
(gfc_symbol): Add from_intmod, intmod_sym_id, binding_label, and
common_block members.
(gfc_common_head): Add binding_label and is_bind_c members.
(gfc_gsymbol): Add sym_name, mod_name, and binding_label members.
Add prototypes for get_c_kind, gfc_validate_c_kind,
gfc_check_any_c_kind, gfc_add_is_bind_c, gfc_add_value,
verify_c_interop, verify_c_interop_param, verify_bind_c_sym,
verify_bind_c_derived_type, verify_com_block_vars_c_interop,
generate_isocbinding_symbol, get_iso_c_sym, gfc_iso_c_sub_interface
* iso-c-binding.def: New file. This file contains the definitions
of the types provided by the Fortran 2003 ISO_C_BINDING intrinsic
module.
* trans-const.c (gfc_conv_constant_to_tree): Deal with C_NULL_PTR
or C_NULL_FUNPTR expressions.
* expr.c (gfc_copy_expr): Add BT_VOID case. For BT_CHARACTER, the
ISO C Binding requires a minimum string length of 1 for '\0'.
* module.c (intmod_sym): New struct.
(pointer_info): Add binding_label member.
(write_atom): Set len to 0 for NULL pointers. Check for NULL p and *p.
(ab_attribute): Add AB_IS_BIND_C, AB_IS_C_INTEROP and AB_IS_ISO_C.
(attr_bits): Add "IS_BIND_C", "IS_C_INTEROP", and "IS_ISO_C".
(mio_symbol_attribute): Deal with ISO C Binding attributes.
(bt_types): Add "VOID".
(mio_typespec): Deal with ISO C Binding components.
(mio_namespace_ref): Add intmod variable.
(mio_symbol): Check for symbols from an intrinsic module.
(load_commons): Check for BIND(C) common block.
(read_module): Read binding_label and use it.
(write_common): Add label. Write BIND(C) info.
(write_blank_common): Blank commons are not BIND(C). Explicitly
set is_bind_c=0.
(write_symbol): Deal with binding_label.
(sort_iso_c_rename_list): New function.
(import_iso_c_binding_module): Ditto.
(create_int_parameter): Add to args.
(use_iso_fortran_env_module): Adjust to deal with iso_c_binding
intrinsic module.
* trans-types.c (c_interop_kinds_table): new array of structs.
(gfc_validate_c_kind): New function.
(gfc_check_any_c_kind): Ditto.
(get_real_kind_from_node): Ditto.
(get_int_kind_from_node): Ditto.
(get_int_kind_from_width): Ditto.
(get_int_kind_from_minimal_width): Ditto.
(init_c_interop_kinds): Ditto.
(gfc_init_kinds): call init_c_interop_kinds.
(gfc_typenode_for_spec): Adjust for BT_VOID and ISO C Binding pointers.
Adjust handling of BT_DERIVED.
(gfc_sym_type): Whitespace.
(gfc_get_derived_type): Account for iso_c_binding derived types
* resolve.c (is_scalar_expr_ptr): New function.
(gfc_iso_c_func_interface): Ditto.
(resolve_function): Use gfc_iso_c_func_interface.
(set_name_and_label): New function.
(gfc_iso_c_sub_interface): Ditto.
(resolve_specific_s0): Use gfc_iso_c_sub_interface.
(resolve_bind_c_comms): New function.
(resolve_bind_c_derived_types): Ditto.
(gfc_verify_binding_labels): Ditto.
(resolve_fl_procedure): Check for ISO C interoperability.
(resolve_symbol): Check C interoperability.
(resolve_types): Walk the namespace. Check COMMON blocks.
* trans-decl.c (gfc_sym_mangled_identifier): Prevent the mangling
of identifiers that have an assigned binding label.
(gfc_sym_mangled_function_id): Use the binding label rather than
the mangled name.
(gfc_finish_var_decl): Put variables that are BIND(C) into a common
segment of the object file, because this is what C would do.
(gfc_create_module_variable): Conver to proper types
(set_tree_decl_type_code): New function.
(generate_local_decl): Check dummy variables and derived types for
ISO C Binding attributes.
* match.c (gfc_match_small_int_expr): New function.
(gfc_match_name_C): Ditto.
(match_common_name): Deal with ISO C Binding in COMMON blocks
* trans-io.c (transfer_expr): Deal with C_NULL_PTR or C_NULL_FUNPTR
expressions
* match.h: Add prototypes for gfc_match_small_int_expr,
gfc_match_name_C, match_common_name, set_com_block_bind_c,
set_binding_label, set_verify_bind_c_sym,
set_verify_bind_c_com_block, get_bind_c_idents,
gfc_match_bind_c_stmt, gfc_match_suffix, gfc_match_bind_c,
gfc_get_type_attr_spec
* parse.c (decode_statement): Use gfc_match_bind_c_stmt
(parse_derived): Init *derived_sym = NULL, and gfc_current_block
later for valiadation.
* primary.c (got_delim): Set ISO C Binding components of ts.
(match_logical_constant): Ditto.
(match_complex_constant): Ditto.
(match_complex_constant): Ditto.
(gfc_match_rvalue): Check for existence of at least one arg for
C_LOC, C_FUNLOC, and C_ASSOCIATED.
* misc.c (gfc_clear_ts): Clear ISO C Bindoing components in ts.
(get_c_kind): New function.
2007-07-01 Christopher D. Rickett <crickett@lanl.gov>
* Makefile.in: Add support for iso_c_generated_procs.c and
iso_c_binding.c.
* Makefile.am: Ditto.
* intrinsics/iso_c_generated_procs.c: New file containing helper
functions.
* intrinsics/iso_c_binding.c: Ditto.
* intrinsics/iso_c_binding.h: New file
* gfortran.map: Include the __iso_c_binding_c_* functions.
* libgfortran.h: define GFC_NUM_RANK_BITS.
2007-06-23 Christopher D. Rickett <crickett@lanl.gov>
* bind_c_array_params.f03: New files for Fortran 2003 ISO C Binding.
* bind_c_coms.f90: Ditto.
* bind_c_coms_driver.c: Ditto.
* bind_c_dts.f90: Ditto.
* bind_c_dts_2.f03: Ditto.
* bind_c_dts_2_driver.c: Ditto.
* bind_c_dts_3.f03: Ditto.
* bind_c_dts_4.f03: Ditto.
* bind_c_dts_driver.c: Ditto.
* bind_c_implicit_vars.f03: Ditto.
* bind_c_procs.f03: Ditto.
* bind_c_usage_2.f03: Ditto.
* bind_c_usage_3.f03: Ditto.
* bind_c_usage_5.f03: Ditto.
* bind_c_usage_6.f03: Ditto.
* bind_c_usage_7.f03: Ditto.
* bind_c_vars.f90: Ditto.
* bind_c_vars_driver.c: Ditto.
* binding_c_table_15_1.f03: Ditto.
* binding_label_tests.f03: Ditto.
* binding_label_tests_10.f03: Ditto.
* binding_label_tests_10_main.f03: Ditto.
* binding_label_tests_11.f03: Ditto.
* binding_label_tests_11_main.f03: Ditto.
* binding_label_tests_12.f03: Ditto.
* binding_label_tests_13.f03: Ditto.
* binding_label_tests_13_main.f03: Ditto.
* binding_label_tests_14.f03: Ditto.
* binding_label_tests_2.f03: Ditto.
* binding_label_tests_3.f03: Ditto.
* binding_label_tests_4.f03: Ditto.
* binding_label_tests_5.f03: Ditto.
* binding_label_tests_6.f03: Ditto.
* binding_label_tests_7.f03: Ditto.
* binding_label_tests_8.f03: Ditto.
* binding_label_tests_9.f03: Ditto.
* c_assoc.f90: Ditto.
* c_assoc_2.f03: Ditto.
* c_f_pointer_shape_test.f90: Ditto.
* c_f_pointer_tests.f90: Ditto.
* c_f_tests_driver.c: Ditto.
* c_funloc_tests.f03: Ditto.
* c_funloc_tests_2.f03: Ditto.
* c_funloc_tests_3.f03: Ditto.
* c_funloc_tests_3_funcs.c: Ditto.
* c_kind_params.f90: Ditto.
* c_kind_tests_2.f03: Ditto.
* c_kinds.c: Ditto.
* c_loc_driver.c: Ditto.
* c_loc_test.f90: Ditto.
* c_loc_tests_2.f03: Ditto.
* c_loc_tests_2_funcs.c: Ditto.
* c_loc_tests_3.f03: Ditto.
* c_loc_tests_4.f03: Ditto.
* c_loc_tests_5.f03: Ditto.
* c_loc_tests_6.f03: Ditto.
* c_loc_tests_7.f03: Ditto.
* c_loc_tests_8.f03: Ditto.
* c_ptr_tests.f03: Ditto.
* c_ptr_tests_10.f03: Ditto.
* c_ptr_tests_5.f03: Ditto.
* c_ptr_tests_7.f03: Ditto.
* c_ptr_tests_7_driver.c: Ditto.
* c_ptr_tests_8.f03: Ditto.
* c_ptr_tests_8_funcs.c: Ditto.
* c_ptr_tests_9.f03: Ditto.
* c_ptr_tests_driver.c: Ditto.
* c_size_t_driver.c: Ditto.
* c_size_t_test.f03: Ditto.
* com_block_driver.f90: Ditto.
* global_vars_c_init.f90: Ditto.
* global_vars_c_init_driver.c: Ditto.
* global_vars_f90_init.f90: Ditto.
* global_vars_f90_init_driver.c: Ditto.
* interop_params.f03: Ditto.
* iso_c_binding_only.f03: Ditto.
* iso_c_binding_rename_1.f03: Ditto.
* iso_c_binding_rename_1_driver.c: Ditto.
* iso_c_binding_rename_2.f03: Ditto.
* iso_c_binding_rename_2_driver.c: Ditto.
* kind_tests_2.f03: Ditto.
* kind_tests_3.f03: Ditto.
* module_md5_1.f90: Ditto.
* only_clause_main.c: Ditto.
* print_c_kinds.f90: Ditto.
* test_bind_c_parens.f03: Ditto.
* test_c_assoc.c: Ditto.
* test_com_block.f90: Ditto.
* test_common_binding_labels.f03: Ditto.
* test_common_binding_labels_2.f03: Ditto.
* test_common_binding_labels_2_main.f03: Ditto.
* test_common_binding_labels_3.f03: Ditto.
* test_common_binding_labels_3_main.f03: Ditto.
* test_only_clause.f90: Ditto.
* use_iso_c_binding.f90: Ditto.
* value_5.f90: Ditto.
* value_test.f90: Ditto.
* value_tests_f03.f90: Ditto.
From-SVN: r126185
2007-07-02 10:47:21 +08:00
|
|
|
__iso_c_binding_c_f_pointer;
|
|
|
|
|
__iso_c_binding_c_f_pointer_d0;
|
|
|
|
|
__iso_c_binding_c_f_pointer_i1;
|
|
|
|
|
__iso_c_binding_c_f_pointer_i2;
|
|
|
|
|
__iso_c_binding_c_f_pointer_i4;
|
|
|
|
|
__iso_c_binding_c_f_pointer_i8;
|
|
|
|
|
__iso_c_binding_c_f_pointer_i16;
|
|
|
|
|
__iso_c_binding_c_f_pointer_r4;
|
|
|
|
|
__iso_c_binding_c_f_pointer_r8;
|
|
|
|
|
__iso_c_binding_c_f_pointer_r10;
|
|
|
|
|
__iso_c_binding_c_f_pointer_r16;
|
2007-07-22 07:45:44 +08:00
|
|
|
__iso_c_binding_c_f_pointer_c4;
|
|
|
|
|
__iso_c_binding_c_f_pointer_c8;
|
|
|
|
|
__iso_c_binding_c_f_pointer_c10;
|
|
|
|
|
__iso_c_binding_c_f_pointer_c16;
|
|
|
|
|
__iso_c_binding_c_f_pointer_s0;
|
|
|
|
|
__iso_c_binding_c_f_pointer_l1;
|
|
|
|
|
__iso_c_binding_c_f_pointer_l2;
|
|
|
|
|
__iso_c_binding_c_f_pointer_l4;
|
|
|
|
|
__iso_c_binding_c_f_pointer_l8;
|
[multiple changes]
2007-07-01 Christopher D. Rickett <crickett@lanl.gov>
* interface.c (gfc_compare_derived_types): Special case for comparing
derived types across namespaces.
(gfc_compare_types): Deal with BT_VOID.
(compare_parameter): Use BT_VOID to accept ISO C Binding pointers.
* trans-expr.c (gfc_conv_function_call): Remove setting parm_kind
to SCALAR
(gfc_conv_initializer): Deal with ISO C Binding NULL_PTR and
NULL_FUNPTR.
(gfc_conv_expr): Convert expressions for ISO C Binding derived types.
* symbol.c (gfc_set_default_type): BIND(C) variables should not be
implicitly declared.
(check_conflict): Add BIND(C) and check for conflicts.
(gfc_add_explicit_interface): Whitespace.
(gfc_add_is_bind_c): New function.
(gfc_copy_attr): Use it.
(gfc_new_symbol): Initialize ISO C Binding objects.
(get_iso_c_binding_dt): New function.
(verify_bind_c_derived_type): Ditto.
(gen_special_c_interop_ptr): Ditto.
(add_formal_arg): Ditto.
(gen_cptr_param): Ditto.
(gen_fptr_param): Ditto.
(gen_shape_param): Ditto.
(add_proc_interface): Ditto.
(build_formal_args): Ditto.
(generate_isocbinding_symbol): Ditto.
(get_iso_c_sym): Ditto.
* decl.c (num_idents_on_line, has_name_equals): New variables.
(verify_c_interop_param): New function.
(build_sym): Finish binding labels and deal with COMMON blocks.
(add_init_expr_to_sym): Check if the initialized expression is
an iso_c_binding named constants
(variable_decl): Set ISO C Binding type_spec components.
(gfc_match_kind_spec): Check match for C interoperable kind.
(match_char_spec): Fix comment. Chnage gfc_match_small_int
to gfc_match_small_int_expr. Check for C interoperable kind.
(match_type_spec): Clear the current binding label.
(match_attr_spec): Add DECL_IS_BIND_C. If BIND(C) is found, use it
to set attributes.
(set_binding_label): New function.
(set_com_block_bind_c): Ditto.
(verify_c_interop): Ditto.
(verify_com_block_vars_c_interop): Ditto.
(verify_bind_c_sym): Ditto.
(set_verify_bind_c_sym): Ditto.
(set_verify_bind_c_com_block): Ditto.
(get_bind_c_idents): Ditto.
(gfc_match_bind_c_stmt): Ditto.
(gfc_match_data_decl): Use num_idents_on_line.
(match_result): Deal with right paren in BIND(C).
(gfc_match_suffix): New function.
(gfc_match_function_decl): Use it. Code is re-arranged to deal with
ISO C Binding result clauses.
(gfc_match_subroutine): Deal with BIND(C).
(gfc_match_bind_c): New function.
(gfc_get_type_attr_spec): New function. Code is re-arranged in and
taken from gfc_match_derived_decl.
(gfc_match_derived_decl): Add check for BIND(C).
* trans-common.c: Forward declare gfc_get_common.
(gfc_sym_mangled_common_id): Change arg from 'const char *name' to
'gfc_common_head *com'. Check for ISO C Binding of the common block.
(build_common_decl): 'com->name' to 'com in SET_DECL_ASSEMBLER_NAME.
* gfortran.h: Add GFC_MAX_BINDING_LABEL_LEN
(bt): Add BT_VOID
(sym_flavor): Add FL_VOID.
(iso_fortran_env_symbol, iso_c_binding_symbol, intmod_id): New enum
(CInteropKind_t): New struct.
(c_interop_kinds_table): Use it. Declare an array of structs.
(symbol_attribute): Add is_bind_c, is_c_interop, and is_iso_c
bitfields.
(gfc_typespec): Add is_c_interop; is_iso_c, and f90_type members.
(gfc_symbol): Add from_intmod, intmod_sym_id, binding_label, and
common_block members.
(gfc_common_head): Add binding_label and is_bind_c members.
(gfc_gsymbol): Add sym_name, mod_name, and binding_label members.
Add prototypes for get_c_kind, gfc_validate_c_kind,
gfc_check_any_c_kind, gfc_add_is_bind_c, gfc_add_value,
verify_c_interop, verify_c_interop_param, verify_bind_c_sym,
verify_bind_c_derived_type, verify_com_block_vars_c_interop,
generate_isocbinding_symbol, get_iso_c_sym, gfc_iso_c_sub_interface
* iso-c-binding.def: New file. This file contains the definitions
of the types provided by the Fortran 2003 ISO_C_BINDING intrinsic
module.
* trans-const.c (gfc_conv_constant_to_tree): Deal with C_NULL_PTR
or C_NULL_FUNPTR expressions.
* expr.c (gfc_copy_expr): Add BT_VOID case. For BT_CHARACTER, the
ISO C Binding requires a minimum string length of 1 for '\0'.
* module.c (intmod_sym): New struct.
(pointer_info): Add binding_label member.
(write_atom): Set len to 0 for NULL pointers. Check for NULL p and *p.
(ab_attribute): Add AB_IS_BIND_C, AB_IS_C_INTEROP and AB_IS_ISO_C.
(attr_bits): Add "IS_BIND_C", "IS_C_INTEROP", and "IS_ISO_C".
(mio_symbol_attribute): Deal with ISO C Binding attributes.
(bt_types): Add "VOID".
(mio_typespec): Deal with ISO C Binding components.
(mio_namespace_ref): Add intmod variable.
(mio_symbol): Check for symbols from an intrinsic module.
(load_commons): Check for BIND(C) common block.
(read_module): Read binding_label and use it.
(write_common): Add label. Write BIND(C) info.
(write_blank_common): Blank commons are not BIND(C). Explicitly
set is_bind_c=0.
(write_symbol): Deal with binding_label.
(sort_iso_c_rename_list): New function.
(import_iso_c_binding_module): Ditto.
(create_int_parameter): Add to args.
(use_iso_fortran_env_module): Adjust to deal with iso_c_binding
intrinsic module.
* trans-types.c (c_interop_kinds_table): new array of structs.
(gfc_validate_c_kind): New function.
(gfc_check_any_c_kind): Ditto.
(get_real_kind_from_node): Ditto.
(get_int_kind_from_node): Ditto.
(get_int_kind_from_width): Ditto.
(get_int_kind_from_minimal_width): Ditto.
(init_c_interop_kinds): Ditto.
(gfc_init_kinds): call init_c_interop_kinds.
(gfc_typenode_for_spec): Adjust for BT_VOID and ISO C Binding pointers.
Adjust handling of BT_DERIVED.
(gfc_sym_type): Whitespace.
(gfc_get_derived_type): Account for iso_c_binding derived types
* resolve.c (is_scalar_expr_ptr): New function.
(gfc_iso_c_func_interface): Ditto.
(resolve_function): Use gfc_iso_c_func_interface.
(set_name_and_label): New function.
(gfc_iso_c_sub_interface): Ditto.
(resolve_specific_s0): Use gfc_iso_c_sub_interface.
(resolve_bind_c_comms): New function.
(resolve_bind_c_derived_types): Ditto.
(gfc_verify_binding_labels): Ditto.
(resolve_fl_procedure): Check for ISO C interoperability.
(resolve_symbol): Check C interoperability.
(resolve_types): Walk the namespace. Check COMMON blocks.
* trans-decl.c (gfc_sym_mangled_identifier): Prevent the mangling
of identifiers that have an assigned binding label.
(gfc_sym_mangled_function_id): Use the binding label rather than
the mangled name.
(gfc_finish_var_decl): Put variables that are BIND(C) into a common
segment of the object file, because this is what C would do.
(gfc_create_module_variable): Conver to proper types
(set_tree_decl_type_code): New function.
(generate_local_decl): Check dummy variables and derived types for
ISO C Binding attributes.
* match.c (gfc_match_small_int_expr): New function.
(gfc_match_name_C): Ditto.
(match_common_name): Deal with ISO C Binding in COMMON blocks
* trans-io.c (transfer_expr): Deal with C_NULL_PTR or C_NULL_FUNPTR
expressions
* match.h: Add prototypes for gfc_match_small_int_expr,
gfc_match_name_C, match_common_name, set_com_block_bind_c,
set_binding_label, set_verify_bind_c_sym,
set_verify_bind_c_com_block, get_bind_c_idents,
gfc_match_bind_c_stmt, gfc_match_suffix, gfc_match_bind_c,
gfc_get_type_attr_spec
* parse.c (decode_statement): Use gfc_match_bind_c_stmt
(parse_derived): Init *derived_sym = NULL, and gfc_current_block
later for valiadation.
* primary.c (got_delim): Set ISO C Binding components of ts.
(match_logical_constant): Ditto.
(match_complex_constant): Ditto.
(match_complex_constant): Ditto.
(gfc_match_rvalue): Check for existence of at least one arg for
C_LOC, C_FUNLOC, and C_ASSOCIATED.
* misc.c (gfc_clear_ts): Clear ISO C Bindoing components in ts.
(get_c_kind): New function.
2007-07-01 Christopher D. Rickett <crickett@lanl.gov>
* Makefile.in: Add support for iso_c_generated_procs.c and
iso_c_binding.c.
* Makefile.am: Ditto.
* intrinsics/iso_c_generated_procs.c: New file containing helper
functions.
* intrinsics/iso_c_binding.c: Ditto.
* intrinsics/iso_c_binding.h: New file
* gfortran.map: Include the __iso_c_binding_c_* functions.
* libgfortran.h: define GFC_NUM_RANK_BITS.
2007-06-23 Christopher D. Rickett <crickett@lanl.gov>
* bind_c_array_params.f03: New files for Fortran 2003 ISO C Binding.
* bind_c_coms.f90: Ditto.
* bind_c_coms_driver.c: Ditto.
* bind_c_dts.f90: Ditto.
* bind_c_dts_2.f03: Ditto.
* bind_c_dts_2_driver.c: Ditto.
* bind_c_dts_3.f03: Ditto.
* bind_c_dts_4.f03: Ditto.
* bind_c_dts_driver.c: Ditto.
* bind_c_implicit_vars.f03: Ditto.
* bind_c_procs.f03: Ditto.
* bind_c_usage_2.f03: Ditto.
* bind_c_usage_3.f03: Ditto.
* bind_c_usage_5.f03: Ditto.
* bind_c_usage_6.f03: Ditto.
* bind_c_usage_7.f03: Ditto.
* bind_c_vars.f90: Ditto.
* bind_c_vars_driver.c: Ditto.
* binding_c_table_15_1.f03: Ditto.
* binding_label_tests.f03: Ditto.
* binding_label_tests_10.f03: Ditto.
* binding_label_tests_10_main.f03: Ditto.
* binding_label_tests_11.f03: Ditto.
* binding_label_tests_11_main.f03: Ditto.
* binding_label_tests_12.f03: Ditto.
* binding_label_tests_13.f03: Ditto.
* binding_label_tests_13_main.f03: Ditto.
* binding_label_tests_14.f03: Ditto.
* binding_label_tests_2.f03: Ditto.
* binding_label_tests_3.f03: Ditto.
* binding_label_tests_4.f03: Ditto.
* binding_label_tests_5.f03: Ditto.
* binding_label_tests_6.f03: Ditto.
* binding_label_tests_7.f03: Ditto.
* binding_label_tests_8.f03: Ditto.
* binding_label_tests_9.f03: Ditto.
* c_assoc.f90: Ditto.
* c_assoc_2.f03: Ditto.
* c_f_pointer_shape_test.f90: Ditto.
* c_f_pointer_tests.f90: Ditto.
* c_f_tests_driver.c: Ditto.
* c_funloc_tests.f03: Ditto.
* c_funloc_tests_2.f03: Ditto.
* c_funloc_tests_3.f03: Ditto.
* c_funloc_tests_3_funcs.c: Ditto.
* c_kind_params.f90: Ditto.
* c_kind_tests_2.f03: Ditto.
* c_kinds.c: Ditto.
* c_loc_driver.c: Ditto.
* c_loc_test.f90: Ditto.
* c_loc_tests_2.f03: Ditto.
* c_loc_tests_2_funcs.c: Ditto.
* c_loc_tests_3.f03: Ditto.
* c_loc_tests_4.f03: Ditto.
* c_loc_tests_5.f03: Ditto.
* c_loc_tests_6.f03: Ditto.
* c_loc_tests_7.f03: Ditto.
* c_loc_tests_8.f03: Ditto.
* c_ptr_tests.f03: Ditto.
* c_ptr_tests_10.f03: Ditto.
* c_ptr_tests_5.f03: Ditto.
* c_ptr_tests_7.f03: Ditto.
* c_ptr_tests_7_driver.c: Ditto.
* c_ptr_tests_8.f03: Ditto.
* c_ptr_tests_8_funcs.c: Ditto.
* c_ptr_tests_9.f03: Ditto.
* c_ptr_tests_driver.c: Ditto.
* c_size_t_driver.c: Ditto.
* c_size_t_test.f03: Ditto.
* com_block_driver.f90: Ditto.
* global_vars_c_init.f90: Ditto.
* global_vars_c_init_driver.c: Ditto.
* global_vars_f90_init.f90: Ditto.
* global_vars_f90_init_driver.c: Ditto.
* interop_params.f03: Ditto.
* iso_c_binding_only.f03: Ditto.
* iso_c_binding_rename_1.f03: Ditto.
* iso_c_binding_rename_1_driver.c: Ditto.
* iso_c_binding_rename_2.f03: Ditto.
* iso_c_binding_rename_2_driver.c: Ditto.
* kind_tests_2.f03: Ditto.
* kind_tests_3.f03: Ditto.
* module_md5_1.f90: Ditto.
* only_clause_main.c: Ditto.
* print_c_kinds.f90: Ditto.
* test_bind_c_parens.f03: Ditto.
* test_c_assoc.c: Ditto.
* test_com_block.f90: Ditto.
* test_common_binding_labels.f03: Ditto.
* test_common_binding_labels_2.f03: Ditto.
* test_common_binding_labels_2_main.f03: Ditto.
* test_common_binding_labels_3.f03: Ditto.
* test_common_binding_labels_3_main.f03: Ditto.
* test_only_clause.f90: Ditto.
* use_iso_c_binding.f90: Ditto.
* value_5.f90: Ditto.
* value_test.f90: Ditto.
* value_tests_f03.f90: Ditto.
From-SVN: r126185
2007-07-02 10:47:21 +08:00
|
|
|
__iso_c_binding_c_f_pointer_u0;
|
2007-04-24 17:08:52 +08:00
|
|
|
local:
|
|
|
|
|
*;
|
|
|
|
|
};
|
|
|
|
|
|
2008-03-22 01:36:00 +08:00
|
|
|
GFORTRAN_1.1 {
|
|
|
|
|
global:
|
2008-05-15 05:51:27 +08:00
|
|
|
_gfortran_adjustl_char4;
|
|
|
|
|
_gfortran_adjustr_char4;
|
|
|
|
|
_gfortran_compare_string_char4;
|
|
|
|
|
_gfortran_concat_string_char4;
|
2008-05-23 05:55:43 +08:00
|
|
|
_gfortran_convert_char1_to_char4;
|
|
|
|
|
_gfortran_convert_char4_to_char1;
|
|
|
|
|
_gfortran_cshift0_16;
|
|
|
|
|
_gfortran_cshift0_16_char;
|
re PR fortran/36319 (Segfault with wide characters in DATA)
PR fortran/36319
* intrinsic.c (gfc_convert_chartype): Don't mark conversion
function as pure.
* trans-array.c (gfc_trans_array_ctor_element): Divide element
size by the size of one character to obtain length.
* iresolve.c (gfc_resolve_cshift): Call the _char4 variant when
appropriate.
(gfc_resolve_eoshift): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Minor beautification.
(gfc_conv_intrinsic_fdate): Minor beautification.
(gfc_conv_intrinsic_ttynam): Minor beautification.
(gfc_conv_intrinsic_minmax_char): Allow all character kinds.
(size_of_string_in_bytes): New function.
(gfc_conv_intrinsic_size): Call size_of_string_in_bytes for
character expressions.
(gfc_conv_intrinsic_sizeof): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_intrinsic_trim): Allow all character kinds. Minor
beautification.
(gfc_conv_intrinsic_repeat): Fix comment typo.
* simplify.c (gfc_convert_char_constant): Take care of conversion
of array constructors.
* intrinsics/string_intrinsics_inc.c (string_index): Return
correct value for zero-length substring.
* intrinsics/cshift0.c: Add _char4 variant.
* intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
wider than a single byte. Add _char4 variant and use above
functionality.
* intrinsics/eoshift2.c (eoshift2): Likewise.
* m4/eoshift1.m4: Likewise.
* m4/eoshift3.m4: Likewise.
* m4/cshift1.m4: Add _char4 variants.
* gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
_gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
_gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
_gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
_gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
_gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
_gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
_gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
_gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
_gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
_gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
* generated/eoshift3_4.c: Regenerate.
* generated/eoshift1_8.c: Regenerate.
* generated/eoshift1_16.c: Regenerate.
* generated/cshift1_4.c: Regenerate.
* generated/eoshift1_4.c: Regenerate.
* generated/eoshift3_8.c: Regenerate.
* generated/eoshift3_16.c: Regenerate.
* generated/cshift1_8.c: Regenerate.
* generated/cshift1_16.c: Regenerate.
* gfortran.dg/widechar_5.f90: New file.
* gfortran.dg/widechar_6.f90: New file.
* gfortran.dg/widechar_7.f90: New file.
* gfortran.dg/widechar_intrinsics_5.f90: Uncomment the lines
testing the SPREAD intrinsic.
* gfortran.dg/widechar_intrinsics_6.f90: New file.
* gfortran.dg/widechar_intrinsics_7.f90: New file.
* gfortran.dg/widechar_intrinsics_8.f90: New file.
* gfortran.dg/widechar_intrinsics_9.f90: New file.
* gfortran.dg/widechar_intrinsics_10.f90: New file.
From-SVN: r136129
2008-05-29 05:11:39 +08:00
|
|
|
_gfortran_cshift0_1_char4;
|
|
|
|
|
_gfortran_cshift0_2_char4;
|
|
|
|
|
_gfortran_cshift0_4_char4;
|
|
|
|
|
_gfortran_cshift0_8_char4;
|
|
|
|
|
_gfortran_cshift1_16_char4;
|
|
|
|
|
_gfortran_cshift1_4_char4;
|
|
|
|
|
_gfortran_cshift1_8_char4;
|
2008-05-23 05:55:43 +08:00
|
|
|
_gfortran_eoshift0_16;
|
|
|
|
|
_gfortran_eoshift0_16_char;
|
re PR fortran/36319 (Segfault with wide characters in DATA)
PR fortran/36319
* intrinsic.c (gfc_convert_chartype): Don't mark conversion
function as pure.
* trans-array.c (gfc_trans_array_ctor_element): Divide element
size by the size of one character to obtain length.
* iresolve.c (gfc_resolve_cshift): Call the _char4 variant when
appropriate.
(gfc_resolve_eoshift): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Minor beautification.
(gfc_conv_intrinsic_fdate): Minor beautification.
(gfc_conv_intrinsic_ttynam): Minor beautification.
(gfc_conv_intrinsic_minmax_char): Allow all character kinds.
(size_of_string_in_bytes): New function.
(gfc_conv_intrinsic_size): Call size_of_string_in_bytes for
character expressions.
(gfc_conv_intrinsic_sizeof): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_intrinsic_trim): Allow all character kinds. Minor
beautification.
(gfc_conv_intrinsic_repeat): Fix comment typo.
* simplify.c (gfc_convert_char_constant): Take care of conversion
of array constructors.
* intrinsics/string_intrinsics_inc.c (string_index): Return
correct value for zero-length substring.
* intrinsics/cshift0.c: Add _char4 variant.
* intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
wider than a single byte. Add _char4 variant and use above
functionality.
* intrinsics/eoshift2.c (eoshift2): Likewise.
* m4/eoshift1.m4: Likewise.
* m4/eoshift3.m4: Likewise.
* m4/cshift1.m4: Add _char4 variants.
* gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
_gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
_gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
_gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
_gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
_gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
_gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
_gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
_gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
_gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
_gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
* generated/eoshift3_4.c: Regenerate.
* generated/eoshift1_8.c: Regenerate.
* generated/eoshift1_16.c: Regenerate.
* generated/cshift1_4.c: Regenerate.
* generated/eoshift1_4.c: Regenerate.
* generated/eoshift3_8.c: Regenerate.
* generated/eoshift3_16.c: Regenerate.
* generated/cshift1_8.c: Regenerate.
* generated/cshift1_16.c: Regenerate.
* gfortran.dg/widechar_5.f90: New file.
* gfortran.dg/widechar_6.f90: New file.
* gfortran.dg/widechar_7.f90: New file.
* gfortran.dg/widechar_intrinsics_5.f90: Uncomment the lines
testing the SPREAD intrinsic.
* gfortran.dg/widechar_intrinsics_6.f90: New file.
* gfortran.dg/widechar_intrinsics_7.f90: New file.
* gfortran.dg/widechar_intrinsics_8.f90: New file.
* gfortran.dg/widechar_intrinsics_9.f90: New file.
* gfortran.dg/widechar_intrinsics_10.f90: New file.
From-SVN: r136129
2008-05-29 05:11:39 +08:00
|
|
|
_gfortran_eoshift0_1_char4;
|
|
|
|
|
_gfortran_eoshift0_2_char4;
|
|
|
|
|
_gfortran_eoshift0_4_char4;
|
|
|
|
|
_gfortran_eoshift0_8_char4;
|
|
|
|
|
_gfortran_eoshift1_16_char4;
|
|
|
|
|
_gfortran_eoshift1_4_char4;
|
|
|
|
|
_gfortran_eoshift1_8_char4;
|
2008-05-23 05:55:43 +08:00
|
|
|
_gfortran_eoshift2_16;
|
|
|
|
|
_gfortran_eoshift2_16_char;
|
re PR fortran/36319 (Segfault with wide characters in DATA)
PR fortran/36319
* intrinsic.c (gfc_convert_chartype): Don't mark conversion
function as pure.
* trans-array.c (gfc_trans_array_ctor_element): Divide element
size by the size of one character to obtain length.
* iresolve.c (gfc_resolve_cshift): Call the _char4 variant when
appropriate.
(gfc_resolve_eoshift): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Minor beautification.
(gfc_conv_intrinsic_fdate): Minor beautification.
(gfc_conv_intrinsic_ttynam): Minor beautification.
(gfc_conv_intrinsic_minmax_char): Allow all character kinds.
(size_of_string_in_bytes): New function.
(gfc_conv_intrinsic_size): Call size_of_string_in_bytes for
character expressions.
(gfc_conv_intrinsic_sizeof): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_intrinsic_trim): Allow all character kinds. Minor
beautification.
(gfc_conv_intrinsic_repeat): Fix comment typo.
* simplify.c (gfc_convert_char_constant): Take care of conversion
of array constructors.
* intrinsics/string_intrinsics_inc.c (string_index): Return
correct value for zero-length substring.
* intrinsics/cshift0.c: Add _char4 variant.
* intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
wider than a single byte. Add _char4 variant and use above
functionality.
* intrinsics/eoshift2.c (eoshift2): Likewise.
* m4/eoshift1.m4: Likewise.
* m4/eoshift3.m4: Likewise.
* m4/cshift1.m4: Add _char4 variants.
* gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
_gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
_gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
_gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
_gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
_gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
_gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
_gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
_gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
_gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
_gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
* generated/eoshift3_4.c: Regenerate.
* generated/eoshift1_8.c: Regenerate.
* generated/eoshift1_16.c: Regenerate.
* generated/cshift1_4.c: Regenerate.
* generated/eoshift1_4.c: Regenerate.
* generated/eoshift3_8.c: Regenerate.
* generated/eoshift3_16.c: Regenerate.
* generated/cshift1_8.c: Regenerate.
* generated/cshift1_16.c: Regenerate.
* gfortran.dg/widechar_5.f90: New file.
* gfortran.dg/widechar_6.f90: New file.
* gfortran.dg/widechar_7.f90: New file.
* gfortran.dg/widechar_intrinsics_5.f90: Uncomment the lines
testing the SPREAD intrinsic.
* gfortran.dg/widechar_intrinsics_6.f90: New file.
* gfortran.dg/widechar_intrinsics_7.f90: New file.
* gfortran.dg/widechar_intrinsics_8.f90: New file.
* gfortran.dg/widechar_intrinsics_9.f90: New file.
* gfortran.dg/widechar_intrinsics_10.f90: New file.
From-SVN: r136129
2008-05-29 05:11:39 +08:00
|
|
|
_gfortran_eoshift2_1_char4;
|
|
|
|
|
_gfortran_eoshift2_2_char4;
|
|
|
|
|
_gfortran_eoshift2_4_char4;
|
|
|
|
|
_gfortran_eoshift2_8_char4;
|
|
|
|
|
_gfortran_eoshift3_16_char4;
|
|
|
|
|
_gfortran_eoshift3_4_char4;
|
|
|
|
|
_gfortran_eoshift3_8_char4;
|
2008-05-23 05:55:43 +08:00
|
|
|
_gfortran_erfc_scaled_r10;
|
|
|
|
|
_gfortran_erfc_scaled_r16;
|
|
|
|
|
_gfortran_erfc_scaled_r4;
|
|
|
|
|
_gfortran_erfc_scaled_r8;
|
|
|
|
|
_gfortran_pack_char4;
|
|
|
|
|
_gfortran_pack_s_char4;
|
|
|
|
|
_gfortran_reshape_char4;
|
re PR fortran/36132 (_gfortran_internal_pack on optional arguments)
2008-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/36132
PR fortran/29952
PR fortran/36909
* trans.c (gfc_trans_runtime_check): Allow run-time warning
* besides
run-time error.
* trans.h (gfc_trans_runtime_check): Update declaration.
* trans-array.c
* (gfc_trans_array_ctor_element,gfc_trans_array_bound_check,
gfc_conv_array_ref,gfc_conv_ss_startstride,gfc_trans_dummy_array_bias):
Updated gfc_trans_runtime_check calls.
(gfc_conv_array_parameter): Implement flag_check_array_temporaries,
fix packing/unpacking for nonpresent optional actuals to optional
formals.
* trans-array.h (gfc_conv_array_parameter): Update declaration.
* trans-expr.c (gfc_conv_substring,gfc_trans_arrayfunc_assign,
gfc_conv_function_call): Updated gfc_trans_runtime_check calls.
(gfc_conv_function_call): Update gfc_conv_array_parameter calls.
* trans-expr.c (gfc_trans_goto): Updated gfc_trans_runtime_check
calls.
* trans-io.c (set_string,gfc_conv_intrinsic_repeat): Ditto.
(gfc_conv_intrinsic_transfer,gfc_conv_intrinsic_loc): Same for
gfc_conv_array_parameter.
* trans-intrinsics.c (gfc_conv_intrinsic_bound): Ditto.
* trans-decl.c (gfc_build_builtin_function_decls): Add
gfor_fndecl_runtime_warning_at.
* lang.opt: New option fcheck-array-temporaries.
* gfortran.h (gfc_options): New flag_check_array_temporaries.
* options.c (gfc_init_options, gfc_handle_option): Handle flag.
* invoke.texi: New option fcheck-array-temporaries.
2008-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/36132
PR fortran/29952
PR fortran/36909
* runtime/error.c: New function runtime_error_at.
* gfortran.map: Ditto.
* libgfortran.h: Ditto.
2008-07-27 Tobias Burnus <burnus@net-b.de>
PR fortran/36132
PR fortran/29952
PR fortran/36909
gfortran.dg/internal_pack_4.f90: New.
gfortran.dg/internal_pack_5.f90: New.
gfortran.dg/array_temporaries_2.f90: New.
From-SVN: r138186
2008-07-27 18:45:44 +08:00
|
|
|
_gfortran_runtime_warning_at;
|
2008-05-23 05:55:43 +08:00
|
|
|
_gfortran_selected_char_kind;
|
re PR fortran/36319 (Segfault with wide characters in DATA)
PR fortran/36319
* intrinsic.c (gfc_convert_chartype): Don't mark conversion
function as pure.
* trans-array.c (gfc_trans_array_ctor_element): Divide element
size by the size of one character to obtain length.
* iresolve.c (gfc_resolve_cshift): Call the _char4 variant when
appropriate.
(gfc_resolve_eoshift): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Minor beautification.
(gfc_conv_intrinsic_fdate): Minor beautification.
(gfc_conv_intrinsic_ttynam): Minor beautification.
(gfc_conv_intrinsic_minmax_char): Allow all character kinds.
(size_of_string_in_bytes): New function.
(gfc_conv_intrinsic_size): Call size_of_string_in_bytes for
character expressions.
(gfc_conv_intrinsic_sizeof): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_intrinsic_trim): Allow all character kinds. Minor
beautification.
(gfc_conv_intrinsic_repeat): Fix comment typo.
* simplify.c (gfc_convert_char_constant): Take care of conversion
of array constructors.
* intrinsics/string_intrinsics_inc.c (string_index): Return
correct value for zero-length substring.
* intrinsics/cshift0.c: Add _char4 variant.
* intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
wider than a single byte. Add _char4 variant and use above
functionality.
* intrinsics/eoshift2.c (eoshift2): Likewise.
* m4/eoshift1.m4: Likewise.
* m4/eoshift3.m4: Likewise.
* m4/cshift1.m4: Add _char4 variants.
* gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
_gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
_gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
_gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
_gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
_gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
_gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
_gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
_gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
_gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
_gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
* generated/eoshift3_4.c: Regenerate.
* generated/eoshift1_8.c: Regenerate.
* generated/eoshift1_16.c: Regenerate.
* generated/cshift1_4.c: Regenerate.
* generated/eoshift1_4.c: Regenerate.
* generated/eoshift3_8.c: Regenerate.
* generated/eoshift3_16.c: Regenerate.
* generated/cshift1_8.c: Regenerate.
* generated/cshift1_16.c: Regenerate.
* gfortran.dg/widechar_5.f90: New file.
* gfortran.dg/widechar_6.f90: New file.
* gfortran.dg/widechar_7.f90: New file.
* gfortran.dg/widechar_intrinsics_5.f90: Uncomment the lines
testing the SPREAD intrinsic.
* gfortran.dg/widechar_intrinsics_6.f90: New file.
* gfortran.dg/widechar_intrinsics_7.f90: New file.
* gfortran.dg/widechar_intrinsics_8.f90: New file.
* gfortran.dg/widechar_intrinsics_9.f90: New file.
* gfortran.dg/widechar_intrinsics_10.f90: New file.
From-SVN: r136129
2008-05-29 05:11:39 +08:00
|
|
|
_gfortran_select_string_char4;
|
2008-05-23 05:55:43 +08:00
|
|
|
_gfortran_spread_char4;
|
|
|
|
|
_gfortran_spread_char4_scalar;
|
2008-05-15 05:51:27 +08:00
|
|
|
_gfortran_string_index_char4;
|
|
|
|
|
_gfortran_string_len_trim_char4;
|
|
|
|
|
_gfortran_string_minmax_char4;
|
|
|
|
|
_gfortran_string_scan_char4;
|
|
|
|
|
_gfortran_string_trim_char4;
|
|
|
|
|
_gfortran_string_verify_char4;
|
re PR fortran/36319 (Segfault with wide characters in DATA)
PR fortran/36319
* intrinsic.c (gfc_convert_chartype): Don't mark conversion
function as pure.
* trans-array.c (gfc_trans_array_ctor_element): Divide element
size by the size of one character to obtain length.
* iresolve.c (gfc_resolve_cshift): Call the _char4 variant when
appropriate.
(gfc_resolve_eoshift): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime): Minor beautification.
(gfc_conv_intrinsic_fdate): Minor beautification.
(gfc_conv_intrinsic_ttynam): Minor beautification.
(gfc_conv_intrinsic_minmax_char): Allow all character kinds.
(size_of_string_in_bytes): New function.
(gfc_conv_intrinsic_size): Call size_of_string_in_bytes for
character expressions.
(gfc_conv_intrinsic_sizeof): Likewise.
(gfc_conv_intrinsic_array_transfer): Likewise.
(gfc_conv_intrinsic_trim): Allow all character kinds. Minor
beautification.
(gfc_conv_intrinsic_repeat): Fix comment typo.
* simplify.c (gfc_convert_char_constant): Take care of conversion
of array constructors.
* intrinsics/string_intrinsics_inc.c (string_index): Return
correct value for zero-length substring.
* intrinsics/cshift0.c: Add _char4 variant.
* intrinsics/eoshift0.c (eoshift0): Allow filler to be a pattern
wider than a single byte. Add _char4 variant and use above
functionality.
* intrinsics/eoshift2.c (eoshift2): Likewise.
* m4/eoshift1.m4: Likewise.
* m4/eoshift3.m4: Likewise.
* m4/cshift1.m4: Add _char4 variants.
* gfortran.map (GFORTRAN_1.1): Add _gfortran_cshift0_1_char4,
_gfortran_cshift0_2_char4, _gfortran_cshift0_4_char4,
_gfortran_cshift0_8_char4, _gfortran_cshift1_16_char4,
_gfortran_cshift1_4_char4, _gfortran_cshift1_8_char4,
_gfortran_eoshift0_1_char4, _gfortran_eoshift0_2_char4,
_gfortran_eoshift0_4_char4, _gfortran_eoshift0_8_char4,
_gfortran_eoshift1_16_char4, _gfortran_eoshift1_4_char4,
_gfortran_eoshift1_8_char4, _gfortran_eoshift2_1_char4,
_gfortran_eoshift2_2_char4, _gfortran_eoshift2_4_char4,
_gfortran_eoshift2_8_char4, _gfortran_eoshift3_16_char4,
_gfortran_eoshift3_4_char4 and _gfortran_eoshift3_8_char4.
* generated/eoshift3_4.c: Regenerate.
* generated/eoshift1_8.c: Regenerate.
* generated/eoshift1_16.c: Regenerate.
* generated/cshift1_4.c: Regenerate.
* generated/eoshift1_4.c: Regenerate.
* generated/eoshift3_8.c: Regenerate.
* generated/eoshift3_16.c: Regenerate.
* generated/cshift1_8.c: Regenerate.
* generated/cshift1_16.c: Regenerate.
* gfortran.dg/widechar_5.f90: New file.
* gfortran.dg/widechar_6.f90: New file.
* gfortran.dg/widechar_7.f90: New file.
* gfortran.dg/widechar_intrinsics_5.f90: Uncomment the lines
testing the SPREAD intrinsic.
* gfortran.dg/widechar_intrinsics_6.f90: New file.
* gfortran.dg/widechar_intrinsics_7.f90: New file.
* gfortran.dg/widechar_intrinsics_8.f90: New file.
* gfortran.dg/widechar_intrinsics_9.f90: New file.
* gfortran.dg/widechar_intrinsics_10.f90: New file.
From-SVN: r136129
2008-05-29 05:11:39 +08:00
|
|
|
_gfortran_st_wait;
|
2008-06-14 04:28:08 +08:00
|
|
|
_gfortran_transfer_character_wide;
|
select.c: Moved content to select_inc.c.
* runtime/select.c: Moved content to select_inc.c. Include it.
Add macros for different character types.
* runtime/select_inc.c: New file.
* runtime/convert_char.c: New file.
* intrinsics/pack_generic.c (pack_char4, pack_s_char4): New
functions.
* intrinsics/transpose_generic.c (transpose_char4): New function.
* intrinsics/spread_generic.c (spread_char4, spread_char4_scalar):
New functions.
* intrinsics/unpack_generic.c (unpack1_char4, unpack0_char4):
New functions.
* intrinsics/reshape_generic.c (reshape_char): Use
gfc_charlen_type as type for length variables.
(reshape_char4): New function.
* gfortran.map (GFORTRAN_1.1): Add _gfortran_select_string_char4,
_gfortran_convert_char1_to_char4, _gfortran_convert_char4_to_char1,
_gfortran_transpose_char4, _gfortran_spread_char4,
_gfortran_spread_char4_scalar, _gfortran_reshape_char4,
_gfortran_pack_char4, _gfortran_pack_s_char4,
_gfortran_unpack0_char4 and _gfortran_unpack1_char4.
* Makefile.am: Add runtime/convert_char.c.
* Makefile.in: Regenerate.
From-SVN: r135496
2008-05-18 20:00:20 +08:00
|
|
|
_gfortran_transpose_char4;
|
|
|
|
|
_gfortran_unpack0_char4;
|
|
|
|
|
_gfortran_unpack1_char4;
|
2008-03-22 01:36:00 +08:00
|
|
|
} GFORTRAN_1.0;
|
|
|
|
|
|
2007-04-24 17:08:52 +08:00
|
|
|
F2C_1.0 {
|
|
|
|
|
global:
|
|
|
|
|
_gfortran_f2c_specific__abs_c4;
|
|
|
|
|
_gfortran_f2c_specific__abs_r4;
|
|
|
|
|
_gfortran_f2c_specific__acosh_r4;
|
|
|
|
|
_gfortran_f2c_specific__acos_r4;
|
|
|
|
|
_gfortran_f2c_specific__aimag_c4;
|
|
|
|
|
_gfortran_f2c_specific__aimag_c8;
|
|
|
|
|
_gfortran_f2c_specific__aint_r4;
|
|
|
|
|
_gfortran_f2c_specific__anint_r4;
|
|
|
|
|
_gfortran_f2c_specific__asinh_r4;
|
|
|
|
|
_gfortran_f2c_specific__asin_r4;
|
|
|
|
|
_gfortran_f2c_specific__atan2_r4;
|
|
|
|
|
_gfortran_f2c_specific__atanh_r4;
|
|
|
|
|
_gfortran_f2c_specific__atan_r4;
|
|
|
|
|
_gfortran_f2c_specific__conjg_4;
|
|
|
|
|
_gfortran_f2c_specific__conjg_8;
|
|
|
|
|
_gfortran_f2c_specific__cos_c4;
|
|
|
|
|
_gfortran_f2c_specific__cos_c8;
|
|
|
|
|
_gfortran_f2c_specific__cosh_r4;
|
|
|
|
|
_gfortran_f2c_specific__cos_r4;
|
|
|
|
|
_gfortran_f2c_specific__dim_r4;
|
|
|
|
|
_gfortran_f2c_specific__exp_c4;
|
|
|
|
|
_gfortran_f2c_specific__exp_c8;
|
|
|
|
|
_gfortran_f2c_specific__exp_r4;
|
|
|
|
|
_gfortran_f2c_specific__log10_r4;
|
|
|
|
|
_gfortran_f2c_specific__log_c4;
|
|
|
|
|
_gfortran_f2c_specific__log_c8;
|
|
|
|
|
_gfortran_f2c_specific__log_r4;
|
|
|
|
|
_gfortran_f2c_specific__mod_r4;
|
|
|
|
|
_gfortran_f2c_specific__sign_r4;
|
|
|
|
|
_gfortran_f2c_specific__sin_c4;
|
|
|
|
|
_gfortran_f2c_specific__sin_c8;
|
|
|
|
|
_gfortran_f2c_specific__sinh_r4;
|
|
|
|
|
_gfortran_f2c_specific__sin_r4;
|
|
|
|
|
_gfortran_f2c_specific__sqrt_c4;
|
|
|
|
|
_gfortran_f2c_specific__sqrt_c8;
|
|
|
|
|
_gfortran_f2c_specific__sqrt_r4;
|
|
|
|
|
_gfortran_f2c_specific__tanh_r4;
|
|
|
|
|
_gfortran_f2c_specific__tan_r4;
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
GFORTRAN_C99_1.0 {
|
|
|
|
|
global:
|
|
|
|
|
acosf;
|
|
|
|
|
acoshf;
|
|
|
|
|
asinf;
|
|
|
|
|
asinhf;
|
|
|
|
|
atan2f;
|
|
|
|
|
atanf;
|
|
|
|
|
atanhf;
|
|
|
|
|
cabs;
|
|
|
|
|
cabsf;
|
|
|
|
|
cabsl;
|
|
|
|
|
carg;
|
|
|
|
|
cargf;
|
|
|
|
|
cargl;
|
|
|
|
|
ccos;
|
|
|
|
|
ccosf;
|
|
|
|
|
ccosh;
|
|
|
|
|
ccoshf;
|
|
|
|
|
ccoshl;
|
|
|
|
|
ccosl;
|
|
|
|
|
ceilf;
|
|
|
|
|
cexp;
|
|
|
|
|
cexpf;
|
|
|
|
|
cexpl;
|
|
|
|
|
clog;
|
|
|
|
|
clog10;
|
|
|
|
|
clog10f;
|
|
|
|
|
clog10l;
|
|
|
|
|
clogf;
|
|
|
|
|
clogl;
|
|
|
|
|
copysignf;
|
|
|
|
|
cosf;
|
|
|
|
|
coshf;
|
|
|
|
|
cpow;
|
|
|
|
|
cpowf;
|
|
|
|
|
cpowl;
|
|
|
|
|
csin;
|
|
|
|
|
csinf;
|
|
|
|
|
csinh;
|
|
|
|
|
csinhf;
|
|
|
|
|
csinhl;
|
|
|
|
|
csinl;
|
|
|
|
|
csqrt;
|
|
|
|
|
csqrtf;
|
|
|
|
|
csqrtl;
|
|
|
|
|
ctan;
|
|
|
|
|
ctanf;
|
|
|
|
|
ctanh;
|
|
|
|
|
ctanhf;
|
|
|
|
|
ctanhl;
|
|
|
|
|
ctanl;
|
|
|
|
|
erfcf;
|
|
|
|
|
erff;
|
|
|
|
|
expf;
|
|
|
|
|
fabsf;
|
|
|
|
|
floorf;
|
|
|
|
|
floorl;
|
|
|
|
|
fmodf;
|
|
|
|
|
fmodl;
|
|
|
|
|
frexpf;
|
|
|
|
|
hypotf;
|
|
|
|
|
j0f;
|
|
|
|
|
j1f;
|
|
|
|
|
jnf;
|
2007-11-30 12:14:01 +08:00
|
|
|
lgamma;
|
|
|
|
|
lgammaf;
|
2007-04-24 17:08:52 +08:00
|
|
|
log10f;
|
|
|
|
|
log10l;
|
|
|
|
|
logf;
|
|
|
|
|
nextafterf;
|
|
|
|
|
powf;
|
|
|
|
|
round;
|
|
|
|
|
roundf;
|
|
|
|
|
scalbn;
|
|
|
|
|
scalbnf;
|
|
|
|
|
sinf;
|
|
|
|
|
sinhf;
|
|
|
|
|
sqrtf;
|
|
|
|
|
tanf;
|
|
|
|
|
tanhf;
|
2007-11-30 12:14:01 +08:00
|
|
|
tgamma;
|
|
|
|
|
tgammaf;
|
2007-04-24 17:08:52 +08:00
|
|
|
trunc;
|
|
|
|
|
truncf;
|
|
|
|
|
y0f;
|
|
|
|
|
y1f;
|
|
|
|
|
ynf;
|
|
|
|
|
};
|
