2007-04-24 11:08:52 +02:00
|
|
|
GFORTRAN_1.0 {
|
|
|
|
|
global:
|
|
|
|
|
_gfortran_abort;
|
|
|
|
|
_gfortran_access_func;
|
|
|
|
|
_gfortran_adjustl;
|
|
|
|
|
_gfortran_adjustr;
|
2007-08-07 01:02:38 +02: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-15 22:22:07 +01:00
|
|
|
_gfortran_all_l1;
|
2007-04-24 11:08:52 +02: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-15 22:22:07 +01:00
|
|
|
_gfortran_all_l2;
|
2007-04-24 11:08:52 +02: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-15 22:22:07 +01:00
|
|
|
_gfortran_any_l1;
|
2007-04-24 11:08:52 +02: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-15 22:22:07 +01:00
|
|
|
_gfortran_any_l2;
|
2007-04-24 11:08:52 +02: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-15 22:22:07 +01:00
|
|
|
_gfortran_count_1_l;
|
|
|
|
|
_gfortran_count_16_l;
|
|
|
|
|
_gfortran_count_2_l;
|
|
|
|
|
_gfortran_count_4_l;
|
|
|
|
|
_gfortran_count_8_l;
|
2007-04-24 11:08:52 +02: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 11:41:44 +01:00
|
|
|
_gfortran_dtime;
|
|
|
|
|
_gfortran_dtime_sub;
|
2007-04-24 11:08:52 +02: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-04 20:02:18 +02:00
|
|
|
_gfortran_fseek_sub;
|
2007-04-24 11:08:52 +02: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 00:28:31 +02:00
|
|
|
_gfortran_generate_error;
|
2007-04-24 11:08:52 +02: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-14 21:33:57 +02:00
|
|
|
_gfortran_os_error;
|
2007-04-24 11:08:52 +02: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;
|
2010-11-16 22:23:19 +01:00
|
|
|
_gfortran_pow_r16_i4;
|
2007-04-24 11:08:52 +02:00
|
|
|
_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-12 22:45:29 +02:00
|
|
|
_gfortran_random_seed_i4;
|
|
|
|
|
_gfortran_random_seed_i8;
|
2007-04-24 11:08:52 +02: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 00:28:31 +02:00
|
|
|
_gfortran_runtime_error_at;
|
2007-04-24 11:08:52 +02: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-15 18:26:22 +02:00
|
|
|
_gfortran_set_options;
|
2007-04-24 11:08:52 +02: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-06 22:47:17 +02:00
|
|
|
_gfortran_string_minmax;
|
2007-04-24 11:08:52 +02: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 04:47:21 +02: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 01:45:44 +02: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 04:47:21 +02:00
|
|
|
__iso_c_binding_c_f_pointer_u0;
|
2007-04-24 11:08:52 +02:00
|
|
|
local:
|
|
|
|
|
*;
|
|
|
|
|
};
|
|
|
|
|
|
2008-03-21 18:36:00 +01:00
|
|
|
GFORTRAN_1.1 {
|
|
|
|
|
global:
|
2008-05-14 23:51:27 +02:00
|
|
|
_gfortran_adjustl_char4;
|
|
|
|
|
_gfortran_adjustr_char4;
|
|
|
|
|
_gfortran_compare_string_char4;
|
|
|
|
|
_gfortran_concat_string_char4;
|
2008-05-22 23:55:43 +02: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-28 23:11:39 +02: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-22 23:55:43 +02: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-28 23:11:39 +02: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-22 23:55:43 +02: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-28 23:11:39 +02: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-22 23:55:43 +02:00
|
|
|
_gfortran_erfc_scaled_r10;
|
|
|
|
|
_gfortran_erfc_scaled_r16;
|
|
|
|
|
_gfortran_erfc_scaled_r4;
|
|
|
|
|
_gfortran_erfc_scaled_r8;
|
2010-09-01 10:33:11 +02:00
|
|
|
_gfortran_execute_command_line_i4;
|
|
|
|
|
_gfortran_execute_command_line_i8;
|
2008-05-22 23:55:43 +02:00
|
|
|
_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 12:45:44 +02:00
|
|
|
_gfortran_runtime_warning_at;
|
2008-05-22 23:55:43 +02: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-28 23:11:39 +02:00
|
|
|
_gfortran_select_string_char4;
|
2008-05-22 23:55:43 +02:00
|
|
|
_gfortran_spread_char4;
|
|
|
|
|
_gfortran_spread_char4_scalar;
|
2008-05-14 23:51:27 +02: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-28 23:11:39 +02:00
|
|
|
_gfortran_st_wait;
|
2008-06-13 22:28:08 +02: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 14:00:20 +02:00
|
|
|
_gfortran_transpose_char4;
|
|
|
|
|
_gfortran_unpack0_char4;
|
|
|
|
|
_gfortran_unpack1_char4;
|
2008-03-21 18:36:00 +01:00
|
|
|
} GFORTRAN_1.0;
|
|
|
|
|
|
2009-05-29 23:27:54 +02:00
|
|
|
|
|
|
|
|
GFORTRAN_1.2 {
|
|
|
|
|
global:
|
|
|
|
|
_gfortran_clz128;
|
|
|
|
|
_gfortran_ctz128;
|
backport: re PR fortran/42053 ([OOP] SELECT TYPE: reject duplicate CLASS IS blocks)
merge from fortran-dev branch:
gcc/fortran/
2009-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/42053
* resolve.c (resolve_select_type): Check for duplicate CLASS IS blocks.
2009-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/41631
* decl.c (gfc_match_derived_decl): Set extension level.
* gfortran.h (symbol_attribute): Expand 'extension' bit field to 8 bit.
* iresolve.c (gfc_resolve_extends_type_of): Return value of
'is_extension_of' has kind=4.
* match.c (select_type_set_tmp,gfc_match_class_is): Create temporary
for CLASS IS blocks.
* module.c (MOD_VERSION): Bump module version.
(ab_attribute,attr_bits): Remove AB_EXTENSION.
(mio_symbol_attribute): Handle expanded 'extension' field.
* resolve.c (resolve_select_type): Implement CLASS IS blocks.
(resolve_fl_variable_derived): Show correct type name.
* symbol.c (gfc_build_class_symbol): Set extension level.
2009-11-30 Janus Weil <janus@gcc.gnu.org>
* intrinsic.h (gfc_resolve_extends_type_of): Add prototype.
* intrinsic.c (add_functions): Use 'gfc_resolve_extends_type_of'.
* iresolve.c (gfc_resolve_extends_type_of): New function, which
replaces the call to EXTENDS_TYPE_OF by the library function
'is_extension_of' and modifies the arguments.
* trans-intrinsic.c (gfc_conv_extends_type_of): Removed.
(gfc_conv_intrinsic_function): FOR EXTENDS_TYPE_OF, don't call
gfc_conv_extends_type_of but gfc_conv_intrinsic_funcall.
2009-11-30 Paul Thomas <pault@gcc.gnu.org>
Janus Weil <janus@gcc.gnu.org>
* decl.c (encapsulate_class_symbol): Replaced by
'gfc_build_class_symbol'.
(build_sym,build_struct): Call 'gfc_build_class_symbol'.
(gfc_match_derived_decl): Replace vindex by hash_value.
* dump-parse-tree.c (show_symbol): Replace vindex by hash_value.
* gfortran.h (symbol_attribute): Add field 'vtab'.
(gfc_symbol): Replace vindex by hash_value.
(gfc_class_esym_list): Ditto.
(gfc_get_derived_type,gfc_build_class_symbol,gfc_find_derived_vtab):
New prototypes.
* module.c (mio_symbol): Replace vindex by hash_value.
* resolve.c (vindex_expr): Rename to 'hash_value_expr'.
(resolve_class_compcall,resolve_class_typebound_call): Renamed
'vindex_expr'.
(resolve_select_type): Replace $vindex by $vptr->$hash.
* symbol.c (gfc_add_save): Handle vtab symbols.
(gfc_type_compatible): Rewrite.
(gfc_build_class_symbol): New function which replaces
'encapsulate_class_symbol'.
(gfc_find_derived_vtab): New function to set up a vtab symbol for a
derived type.
* trans-decl.c (gfc_create_module_variable): Handle vtab symbols.
* trans-expr.c (select_class_proc): Replace vindex by hash_value.
(gfc_conv_derived_to_class): New function to construct a temporary
CLASS variable from a derived type expression.
(gfc_conv_procedure_call): Call 'gfc_conv_derived_to_class'.
(gfc_conv_structure): Initialize the $extends and $size fields of
vtab symbols.
(gfc_trans_class_assign): Replace $vindex by $vptr. Remove the $size
assignment.
* trans-intrinsic.c (gfc_conv_same_type_as): Replace $vindex by
$vptr->$hash, and replace vindex by hash_value.
* trans-stmt.c (gfc_trans_allocate): Insert $vptr references, replace
$vindex by $vptr. Remove the $size assignment.
* trans-types.c (gfc_get_derived_type): Make it non-static.
gcc/testsuite/
2009-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/42053
* gfortran.dg/select_type_9.f03: New.
2009-11-30 Janus Weil <janus@gcc.gnu.org>
PR fortran/41631
* gfortran.dg/extends_type_of_1.f03: Fix invalid test case.
* gfortran.dg/module_md5_1.f90: Adjusted MD5 sum.
* gfortran.dg/select_type_1.f03: Remove FIXMEs.
* gfortran.dg/select_type_2.f03: Ditto.
* gfortran.dg/select_type_8.f03: New test.
2009-11-30 Janus Weil <janus@gcc.gnu.org>
* gfortran.dg/extends_type_of_1.f03: New test.
* gfortran.dg/same_type_as_1.f03: Extended.
2009-11-30 Paul Thomas <pault@gcc.gnu.org>
* gfortran.dg/class_4c.f03: Add dg-additional-sources.
* gfortran.dg/class_4d.f03: Rename module. Cleanup modules.
libgfortran/
2009-11-30 Janus Weil <janus@gcc.gnu.org>
* gfortran.map: Add _gfortran_is_extension_of.
* Makefile.am: Add intrinsics/extends_type_of.c.
* Makefile.in: Regenerated.
* intrinsics/extends_type_of.c: New file.
From-SVN: r154840
2009-11-30 21:43:06 +01:00
|
|
|
_gfortran_is_extension_of;
|
2009-05-29 23:27:54 +02:00
|
|
|
} GFORTRAN_1.1;
|
|
|
|
|
|
re PR fortran/39997 (Procedure(), pointer & implicit typing: rejects-valid / accepts-invalid?)
2010-04-06 Tobias Burnus <burnus@net-b.de>
PR fortran/39997
* intrinsic.c (add_functions): Add num_images.
* decl.c (gfc_match_end): Handle END CRITICAL.
* intrinsic.h (gfc_simplify_num_images): Add prototype.
* dump-parse-tree.c (show_code_node): Dump CRITICAL, ERROR STOP,
and SYNC.
* gfortran.h (gfc_statement): Add enum items for those.
(gfc_exec_op) Ditto.
(gfc_isym_id): Add num_images.
* trans-stmt.c (gfc_trans_stop): Handle ERROR STOP.
(gfc_trans_sync,gfc_trans_critical): New functions.
* trans-stmt.h (gfc_trans_stop,gfc_trans_sync,
gfc_trans_critical): Add/update prototypes.
* trans.c (gfc_trans_code): Handle CRITICAL, ERROR STOP,
and SYNC statements.
* trans.h (gfor_fndecl_error_stop_string) Add variable.
* resolve.c (resolve_sync): Add function.
(gfc_resolve_blocks): Handle CRITICAL.
(resolve_code): Handle CRITICAL, ERROR STOP,
(resolve_branch): Add CRITICAL constraint check.
and SYNC statements.
* st.c (gfc_free_statement): Add new statements.
* trans-decl.c (gfor_fndecl_error_stop_string): Global variable.
(gfc_build_builtin_function_decls): Initialize it.
* match.c (gfc_match_if): Handle ERROR STOP and SYNC.
(gfc_match_critical, gfc_match_error_stop, sync_statement,
gfc_match_sync_all, gfc_match_sync_images,
gfc_match_sync_memory):
New functions.
(match_exit_cycle): Handle CRITICAL constraint.
(gfc_match_stopcode): Handle ERROR STOP.
* match.h (gfc_match_critical, gfc_match_error_stop,
gfc_match_sync_all, gfc_match_sync_images,
gfc_match_sync_memory): Add prototype.
* parse.c (decode_statement, gfc_ascii_statement,
parse_executable): Handle new statements.
(parse_critical_block): New function.
* parse.h (gfc_compile_state): Add COMP_CRITICAL.
* intrinsic.texi (num_images): Document new function.
* simplify.c (gfc_simplify_num_images): Add function.
2010-04-06 Tobias Burnus <burnus@net-b.de>
PR fortran/39997
* gfortran.dg/coarray_1.f90: New test.
* gfortran.dg/coarray_2.f90: New test.
* gfortran.dg/coarray_3.f90: New test.
2010-04-06 Tobias Burnus <burnus@net-b.de>
PR fortran/39997
* runtime/stop.c (error_stop_string): New function.
* gfortran.map (_gfortran_error_stop_string): Add.
From-SVN: r158008
2010-04-06 18:26:02 +02:00
|
|
|
GFORTRAN_1.3 {
|
|
|
|
|
global:
|
|
|
|
|
_gfortran_error_stop_string;
|
|
|
|
|
} GFORTRAN_1.2;
|
|
|
|
|
|
2010-05-20 06:44:11 +02:00
|
|
|
GFORTRAN_1.4 {
|
|
|
|
|
global:
|
2010-08-21 12:12:53 +02:00
|
|
|
_gfortran_bessel_jn_r4;
|
|
|
|
|
_gfortran_bessel_jn_r8;
|
|
|
|
|
_gfortran_bessel_jn_r10;
|
|
|
|
|
_gfortran_bessel_jn_r16;
|
|
|
|
|
_gfortran_bessel_yn_r4;
|
|
|
|
|
_gfortran_bessel_yn_r8;
|
|
|
|
|
_gfortran_bessel_yn_r10;
|
|
|
|
|
_gfortran_bessel_yn_r16;
|
re PR fortran/38282 (Bit intrinsics: ILEN and IBCHNG)
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* intrinsic.c (add_functions): Support IALL, IANY, IPARITY.
(check_specific): Special case for those intrinsics.
* gfortran.h (gfc_isym_id): Add new intrinsics
* intrinsic.h (gfc_check_transf_bit_intrins,
gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
gfc_resolve_iall, gfc_resolve_iany, gfc_resolve_iparity):
New prototypes.
* iresolve.c (gfc_resolve_iall, gfc_resolve_iany,
gfc_resolve_iparity, resolve_transformational): New functions.
(gfc_resolve_product, gfc_resolve_sum,
gfc_resolve_parity): Use resolve_transformational.
* check.c (gfc_check_transf_bit_intrins): New function.
* simplify.c (gfc_simplify_iall, gfc_simplify_iany,
gfc_simplify_iparity, do_bit_any, do_bit_ior,
do_bit_xor, simplify_transformation): New functions.
(gfc_simplify_all, gfc_simplify_any, gfc_simplify_parity,
gfc_simplify_sum, gfc_simplify_product): Use simplify_transformation.
* trans-intrinsic.c (gfc_conv_intrinsic_arith,
gfc_conv_intrinsic_function, gfc_is_intrinsic_libcall):
Handle IALL, IANY and IPARITY intrinsics.
* intrinsic.texi (IMAGE_INDEX): Move up to fix alphabetic
order.
(IALL, IANY, IPARITY): Document new intrinsics.
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* gfortran.dg/iall_iany_iparity_1.f90: New.
* gfortran.dg/iall_iany_iparity_2.f90: New.
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* gfortran.map: Add new iany, iall and iparity intrinsics.
* Makefile.am: Ditto.
* m4/iany.m4: New.
* m4/iall.m4: New.
* m4/iparity.m4: New.
* Makefile.in: Regenerate.
* generated/iall_i1.c: Generate.
* generated/iall_i2.c: Generate.
* generated/iall_i4.c: Generate.
* generated/iall_i8.c: Generate.
* generated/iall_i16.c: Generate.
* generated/iany_i1.c: Generate.
* generated/iany_i2.c: Generate.
* generated/iany_i4.c: Generate.
* generated/iany_i8.c: Generate.
* generated/iany_i16.c: Generate.
* generated/iparity_i1.c: Generate.
* generated/iparity_i2.c: Generate.
* generated/iparity_i4.c: Generate.
* generated/iparity_i8.c: Generate.
* generated/iparity_i16.c: Generate.
From-SVN: r163898
2010-09-06 07:55:10 +02:00
|
|
|
_gfortran_error_stop_numeric;
|
|
|
|
|
_gfortran_iall_i1;
|
|
|
|
|
_gfortran_iall_i2;
|
|
|
|
|
_gfortran_iall_i4;
|
|
|
|
|
_gfortran_iall_i8;
|
|
|
|
|
_gfortran_iall_i16;
|
2011-02-16 18:18:41 +01:00
|
|
|
_gfortran_miall_i1;
|
|
|
|
|
_gfortran_miall_i2;
|
|
|
|
|
_gfortran_miall_i4;
|
|
|
|
|
_gfortran_miall_i8;
|
|
|
|
|
_gfortran_miall_i16;
|
|
|
|
|
_gfortran_siall_i1;
|
|
|
|
|
_gfortran_siall_i2;
|
|
|
|
|
_gfortran_siall_i4;
|
|
|
|
|
_gfortran_siall_i8;
|
|
|
|
|
_gfortran_siall_i16;
|
re PR fortran/38282 (Bit intrinsics: ILEN and IBCHNG)
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* intrinsic.c (add_functions): Support IALL, IANY, IPARITY.
(check_specific): Special case for those intrinsics.
* gfortran.h (gfc_isym_id): Add new intrinsics
* intrinsic.h (gfc_check_transf_bit_intrins,
gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
gfc_resolve_iall, gfc_resolve_iany, gfc_resolve_iparity):
New prototypes.
* iresolve.c (gfc_resolve_iall, gfc_resolve_iany,
gfc_resolve_iparity, resolve_transformational): New functions.
(gfc_resolve_product, gfc_resolve_sum,
gfc_resolve_parity): Use resolve_transformational.
* check.c (gfc_check_transf_bit_intrins): New function.
* simplify.c (gfc_simplify_iall, gfc_simplify_iany,
gfc_simplify_iparity, do_bit_any, do_bit_ior,
do_bit_xor, simplify_transformation): New functions.
(gfc_simplify_all, gfc_simplify_any, gfc_simplify_parity,
gfc_simplify_sum, gfc_simplify_product): Use simplify_transformation.
* trans-intrinsic.c (gfc_conv_intrinsic_arith,
gfc_conv_intrinsic_function, gfc_is_intrinsic_libcall):
Handle IALL, IANY and IPARITY intrinsics.
* intrinsic.texi (IMAGE_INDEX): Move up to fix alphabetic
order.
(IALL, IANY, IPARITY): Document new intrinsics.
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* gfortran.dg/iall_iany_iparity_1.f90: New.
* gfortran.dg/iall_iany_iparity_2.f90: New.
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* gfortran.map: Add new iany, iall and iparity intrinsics.
* Makefile.am: Ditto.
* m4/iany.m4: New.
* m4/iall.m4: New.
* m4/iparity.m4: New.
* Makefile.in: Regenerate.
* generated/iall_i1.c: Generate.
* generated/iall_i2.c: Generate.
* generated/iall_i4.c: Generate.
* generated/iall_i8.c: Generate.
* generated/iall_i16.c: Generate.
* generated/iany_i1.c: Generate.
* generated/iany_i2.c: Generate.
* generated/iany_i4.c: Generate.
* generated/iany_i8.c: Generate.
* generated/iany_i16.c: Generate.
* generated/iparity_i1.c: Generate.
* generated/iparity_i2.c: Generate.
* generated/iparity_i4.c: Generate.
* generated/iparity_i8.c: Generate.
* generated/iparity_i16.c: Generate.
From-SVN: r163898
2010-09-06 07:55:10 +02:00
|
|
|
_gfortran_iany_i1;
|
|
|
|
|
_gfortran_iany_i2;
|
|
|
|
|
_gfortran_iany_i4;
|
|
|
|
|
_gfortran_iany_i8;
|
|
|
|
|
_gfortran_iany_i16;
|
2011-02-16 18:18:41 +01:00
|
|
|
_gfortran_miany_i1;
|
|
|
|
|
_gfortran_miany_i2;
|
|
|
|
|
_gfortran_miany_i4;
|
|
|
|
|
_gfortran_miany_i8;
|
|
|
|
|
_gfortran_miany_i16;
|
|
|
|
|
_gfortran_siany_i1;
|
|
|
|
|
_gfortran_siany_i2;
|
|
|
|
|
_gfortran_siany_i4;
|
|
|
|
|
_gfortran_siany_i8;
|
|
|
|
|
_gfortran_siany_i16;
|
re PR fortran/38282 (Bit intrinsics: ILEN and IBCHNG)
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* intrinsic.c (add_functions): Support IALL, IANY, IPARITY.
(check_specific): Special case for those intrinsics.
* gfortran.h (gfc_isym_id): Add new intrinsics
* intrinsic.h (gfc_check_transf_bit_intrins,
gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
gfc_resolve_iall, gfc_resolve_iany, gfc_resolve_iparity):
New prototypes.
* iresolve.c (gfc_resolve_iall, gfc_resolve_iany,
gfc_resolve_iparity, resolve_transformational): New functions.
(gfc_resolve_product, gfc_resolve_sum,
gfc_resolve_parity): Use resolve_transformational.
* check.c (gfc_check_transf_bit_intrins): New function.
* simplify.c (gfc_simplify_iall, gfc_simplify_iany,
gfc_simplify_iparity, do_bit_any, do_bit_ior,
do_bit_xor, simplify_transformation): New functions.
(gfc_simplify_all, gfc_simplify_any, gfc_simplify_parity,
gfc_simplify_sum, gfc_simplify_product): Use simplify_transformation.
* trans-intrinsic.c (gfc_conv_intrinsic_arith,
gfc_conv_intrinsic_function, gfc_is_intrinsic_libcall):
Handle IALL, IANY and IPARITY intrinsics.
* intrinsic.texi (IMAGE_INDEX): Move up to fix alphabetic
order.
(IALL, IANY, IPARITY): Document new intrinsics.
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* gfortran.dg/iall_iany_iparity_1.f90: New.
* gfortran.dg/iall_iany_iparity_2.f90: New.
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* gfortran.map: Add new iany, iall and iparity intrinsics.
* Makefile.am: Ditto.
* m4/iany.m4: New.
* m4/iall.m4: New.
* m4/iparity.m4: New.
* Makefile.in: Regenerate.
* generated/iall_i1.c: Generate.
* generated/iall_i2.c: Generate.
* generated/iall_i4.c: Generate.
* generated/iall_i8.c: Generate.
* generated/iall_i16.c: Generate.
* generated/iany_i1.c: Generate.
* generated/iany_i2.c: Generate.
* generated/iany_i4.c: Generate.
* generated/iany_i8.c: Generate.
* generated/iany_i16.c: Generate.
* generated/iparity_i1.c: Generate.
* generated/iparity_i2.c: Generate.
* generated/iparity_i4.c: Generate.
* generated/iparity_i8.c: Generate.
* generated/iparity_i16.c: Generate.
From-SVN: r163898
2010-09-06 07:55:10 +02:00
|
|
|
_gfortran_iparity_i1;
|
|
|
|
|
_gfortran_iparity_i2;
|
|
|
|
|
_gfortran_iparity_i4;
|
|
|
|
|
_gfortran_iparity_i8;
|
|
|
|
|
_gfortran_iparity_i16;
|
2011-02-16 18:18:41 +01:00
|
|
|
_gfortran_miparity_i1;
|
|
|
|
|
_gfortran_miparity_i2;
|
|
|
|
|
_gfortran_miparity_i4;
|
|
|
|
|
_gfortran_miparity_i8;
|
|
|
|
|
_gfortran_miparity_i16;
|
|
|
|
|
_gfortran_siparity_i1;
|
|
|
|
|
_gfortran_siparity_i2;
|
|
|
|
|
_gfortran_siparity_i4;
|
|
|
|
|
_gfortran_siparity_i8;
|
|
|
|
|
_gfortran_siparity_i16;
|
re PR fortran/33197 (Fortran 2008: math functions)
gcc/fortran/
2010-08-27 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* gcc/fortran/intrinsic.c (add_functions): Add norm2 and parity.
* gcc/fortran/intrinsic.h (gfc_check_norm2, gfc_check_parity):
gfc_simplify_norm2, gfc_simplify_parity, gfc_resolve_norm2,
gfc_resolve_parity): New prototypes.
* gcc/fortran/gfortran.h (gfc_isym_id): New enum items
GFC_ISYM_NORM2 and GFC_ISYM_PARITY.
* gcc/fortran/iresolve.c (gfc_resolve_norm2,
gfc_resolve_parity): New functions.
* gcc/fortran/check.c (gfc_check_norm2, gfc_check_parity):
New functions.
* gcc/fortran/trans-intrinsic.c (gfc_conv_intrinsic_arith,
gfc_conv_intrinsic_function): Handle NORM2 and PARITY.
* gcc/fortran/intrinsic.texi (NORM2, PARITY): Add.
* gcc/fortran/simplify.c (simplify_transformation_to_array):
Add post-processing opterator.
(gfc_simplify_all, gfc_simplify_any, gfc_simplify_count,
gfc_simplify_product, gfc_simplify_sum): Update call.
(add_squared, do_sqrt, gfc_simplify_norm2, do_xor,
gfc_simplify_parity): New functions.
gcc/testsuite/
2010-08-27 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* gcc/testsuite/gfortran.dg/norm2_1.f90: New.
* gcc/testsuite/gfortran.dg/norm2_2.f90: New.
* gcc/testsuite/gfortran.dg/norm2_3.f90: New.
* gcc/testsuite/gfortran.dg/norm2_4.f90: New.
* gcc/testsuite/gfortran.dg/parity_1.f90: New.
* gcc/testsuite/gfortran.dg/parity_2.f90: New.
* gcc/testsuite/gfortran.dg/parity_3.f90: New.
libgfortran/
2010-08-27 Tobias Burnus <burnus@net-b.de>
PR fortran/33197
* libgfortran/m4/ifunction.m4 (FINISH_ARRAY_FUNCTION,
ARRAY_FUNCTION): Allow expression after loop.
* libgfortran/m4/norm2.m4: New for _gfortran_norm2_r{4,8,10,16}.
* libgfortran/m4/parity.m4: New for
* _gfortran_parity_l{1,2,4,8,16}.
* libgfortran/gfortran.map: Add new functions.
* libgfortran/Makefile.am: Ditto.
* libgfortran/m4/minloc1.m4: Add empty argument for
* ARRAY_FUNCTION.
* libgfortran/m4/maxloc1.m4: Ditto.
* libgfortran/m4/all.m4: Ditto.
* libgfortran/m4/minval.m4: Ditto.
* libgfortran/m4/maxval.m4: Ditto.
* libgfortran/m4/count.m4: Ditto.
* libgfortran/m4/product.m4: Ditto.
* libgfortran/m4/any.m4: Ditto.
* Makefile.in: Regenerated.
* generated/minval_r8.c: Regenerated.
* generated/maxloc1_4_r8.c: Regenerated.
* generated/minloc1_16_r16.c: Regenerated.
* generated/norm2_r4.c: Regenerated.
* generated/sum_i8.c: Regenerated.
* generated/parity_l2.c: Regenerated.
* generated/any_l16.c: Regenerated.
* generated/maxval_i2.c: Regenerated.
* generated/any_l2.c: Regenerated.
* generated/product_r4.c: Regenerated.
* generated/maxloc1_8_i4.c: Regenerated.
* generated/parity_l16.c: Regenerated.
* generated/all_l1.c: Regenerated.
* generated/product_i2.c: Regenerated.
* generated/minloc1_8_r16.c: Regenerated.
* generated/maxloc1_8_r16.c: Regenerated.
* generated/sum_r16.c: Regenerated.
* generated/sum_i1.c: Regenerated.
* generated/minloc1_4_r8.c: Regenerated.
* generated/maxloc1_16_r16.c: Regenerated.
* generated/minloc1_16_i4.c: Regenerated.
* generated/maxloc1_16_i4.c: Regenerated.
* generated/maxval_r16.c: Regenerated.
* generated/product_c10.c: Regenerated.
* generated/minloc1_8_i4.c: Regenerated.
* generated/all_l2.c: Regenerated.
* generated/product_c4.c: Regenerated.
* generated/sum_r4.c: Regenerated.
* generated/all_l16.c: Regenerated.
* generated/minloc1_16_r10.c: Regenerated.
* generated/sum_i2.c: Regenerated.
* generated/maxloc1_8_r8.c: Regenerated.
* generated/minval_i16.c: Regenerated.
* generated/parity_l4.c: Regenerated.
* generated/maxval_i4.c: Regenerated.
* generated/any_l4.c: Regenerated.
* generated/minval_i8.c: Regenerated.
* generated/maxloc1_4_i8.c: Regenerated.
* generated/minloc1_4_i16.c: Regenerated.
* generated/maxloc1_4_i16.c: Regenerated.
* generated/minloc1_8_r10.c: Regenerated.
* generated/product_i4.c: Regenerated.
* generated/maxloc1_8_r10.c: Regenerated.
* generated/sum_c16.c: Regenerated.
* generated/minloc1_16_r8.c: Regenerated.
* generated/maxloc1_16_r8.c: Regenerated.
* generated/count_4_l.c: Regenerated.
* generated/sum_r10.c: Regenerated.
* generated/count_8_l.c: Regenerated.
* generated/sum_c4.c: Regenerated.
* generated/maxloc1_16_r10.c: Regenerated.
* generated/minloc1_8_r8.c: Regenerated.
* generated/maxval_r10.c: Regenerated.
* generated/minval_i1.c: Regenerated.
* generated/maxloc1_4_i1.c: Regenerated.
* generated/minloc1_4_i8.c: Regenerated.
* generated/product_i16.c: Regenerated.
* generated/all_l4.c: Regenerated.
* generated/norm2_r16.c: Regenerated.
* generated/minval_r4.c: Regenerated.
* generated/maxloc1_4_r4.c: Regenerated.
* generated/sum_i4.c: Regenerated.
* generated/maxval_r8.c: Regenerated.
* generated/norm2_r8.c: Regenerated.
* generated/minloc1_4_i1.c: Regenerated.
* generated/minval_r16.c: Regenerated.
* generated/minval_i2.c: Regenerated.
* generated/maxloc1_4_i2.c: Regenerated.
* generated/product_r8.c: Regenerated.
* generated/maxloc1_8_i8.c: Regenerated.
* generated/sum_c10.c: Regenerated.
* generated/minloc1_4_r16.c: Regenerated.
* generated/maxloc1_4_r16.c: Regenerated.
* generated/count_1_l.c: Regenerated.
* generated/minloc1_4_r4.c: Regenerated.
* generated/minloc1_16_i8.c: Regenerated.
* generated/maxloc1_16_i8.c: Regenerated.
* generated/minloc1_4_i2.c: Regenerated.
* generated/maxloc1_8_i1.c: Regenerated.
* generated/minloc1_8_i8.c: Regenerated.
* generated/product_r16.c: Regenerated.
* generated/product_c8.c: Regenerated.
* generated/sum_r8.c: Regenerated.
* generated/norm2_r10.c: Regenerated.
* generated/minloc1_16_i16.c: Regenerated.
* generated/maxloc1_8_r4.c: Regenerated.
* generated/minloc1_16_i1.c: Regenerated.
* generated/maxloc1_16_i1.c: Regenerated.
* generated/minval_r10.c: Regenerated.
* generated/count_16_l.c: Regenerated.
* generated/parity_l8.c: Regenerated.
* generated/minloc1_8_i1.c: Regenerated.
* generated/minval_i4.c: Regenerated.
* generated/maxloc1_4_i4.c: Regenerated.
* generated/maxloc1_8_i2.c: Regenerated.
* generated/maxval_i8.c: Regenerated.
* generated/any_l8.c: Regenerated.
* generated/minloc1_4_r10.c: Regenerated.
* generated/minloc1_8_i16.c: Regenerated.
* generated/maxloc1_4_r10.c: Regenerated.
* generated/maxloc1_8_i16.c: Regenerated.
* generated/minloc1_16_r4.c: Regenerated.
* generated/maxloc1_16_r4.c: Regenerated.
* generated/product_i8.c: Regenerated.
* generated/sum_i16.c: Regenerated.
* generated/count_2_l.c: Regenerated.
* generated/maxloc1_16_i16.c: Regenerated.
* generated/minloc1_8_r4.c: Regenerated.
* generated/sum_c8.c: Regenerated.
* generated/minloc1_16_i2.c: Regenerated.
* generated/maxloc1_16_i2.c: Regenerated.
* generated/parity_l1.c: Regenerated.
* generated/maxval_i16.c: Regenerated.
* generated/maxval_i1.c: Regenerated.
* generated/minloc1_4_i4.c: Regenerated.
* generated/any_l1.c: Regenerated.
* generated/minloc1_8_i2.c: Regenerated.
* generated/product_c16.c: Regenerated.
* generated/product_r10.c: Regenerated.
* generated/product_i1.c: Regenerated.
* generated/all_l8.c: Regenerated.
* generated/maxval_r4.c: Regenerated.
From-SVN: r163595
2010-08-27 21:17:45 +02:00
|
|
|
_gfortran_norm2_r4;
|
|
|
|
|
_gfortran_norm2_r8;
|
|
|
|
|
_gfortran_norm2_r10;
|
|
|
|
|
_gfortran_norm2_r16;
|
|
|
|
|
_gfortran_parity_l1;
|
|
|
|
|
_gfortran_parity_l2;
|
|
|
|
|
_gfortran_parity_l4;
|
|
|
|
|
_gfortran_parity_l8;
|
|
|
|
|
_gfortran_parity_l16;
|
re PR fortran/38282 (Bit intrinsics: ILEN and IBCHNG)
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* intrinsic.c (add_functions): Support IALL, IANY, IPARITY.
(check_specific): Special case for those intrinsics.
* gfortran.h (gfc_isym_id): Add new intrinsics
* intrinsic.h (gfc_check_transf_bit_intrins,
gfc_simplify_iall, gfc_simplify_iany, gfc_simplify_iparity,
gfc_resolve_iall, gfc_resolve_iany, gfc_resolve_iparity):
New prototypes.
* iresolve.c (gfc_resolve_iall, gfc_resolve_iany,
gfc_resolve_iparity, resolve_transformational): New functions.
(gfc_resolve_product, gfc_resolve_sum,
gfc_resolve_parity): Use resolve_transformational.
* check.c (gfc_check_transf_bit_intrins): New function.
* simplify.c (gfc_simplify_iall, gfc_simplify_iany,
gfc_simplify_iparity, do_bit_any, do_bit_ior,
do_bit_xor, simplify_transformation): New functions.
(gfc_simplify_all, gfc_simplify_any, gfc_simplify_parity,
gfc_simplify_sum, gfc_simplify_product): Use simplify_transformation.
* trans-intrinsic.c (gfc_conv_intrinsic_arith,
gfc_conv_intrinsic_function, gfc_is_intrinsic_libcall):
Handle IALL, IANY and IPARITY intrinsics.
* intrinsic.texi (IMAGE_INDEX): Move up to fix alphabetic
order.
(IALL, IANY, IPARITY): Document new intrinsics.
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* gfortran.dg/iall_iany_iparity_1.f90: New.
* gfortran.dg/iall_iany_iparity_2.f90: New.
2010-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/38282
* gfortran.map: Add new iany, iall and iparity intrinsics.
* Makefile.am: Ditto.
* m4/iany.m4: New.
* m4/iall.m4: New.
* m4/iparity.m4: New.
* Makefile.in: Regenerate.
* generated/iall_i1.c: Generate.
* generated/iall_i2.c: Generate.
* generated/iall_i4.c: Generate.
* generated/iall_i8.c: Generate.
* generated/iall_i16.c: Generate.
* generated/iany_i1.c: Generate.
* generated/iany_i2.c: Generate.
* generated/iany_i4.c: Generate.
* generated/iany_i8.c: Generate.
* generated/iany_i16.c: Generate.
* generated/iparity_i1.c: Generate.
* generated/iparity_i2.c: Generate.
* generated/iparity_i4.c: Generate.
* generated/iparity_i8.c: Generate.
* generated/iparity_i16.c: Generate.
From-SVN: r163898
2010-09-06 07:55:10 +02:00
|
|
|
_gfortran_selected_real_kind2008;
|
2010-10-21 02:45:15 +02:00
|
|
|
_gfortran_stop_numeric_f08;
|
re PR tree-optimization/20165 (Pointer does not really escape with write)
2010-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/20165
PR fortran/31593
PR fortran/43665
* gfortran.map: Add _gfortran_transfer_array_write,
_gfortran_transfer_array_write, _gfortran_transfer_character_write,
_gfortran_transfer_character_wide_write,
_gfortran_transfer_complex_write,
_gfortran_transfer_integer_write,
_gfortran_transfer_logical_write and
_gfortran_transfer_real_write.
* io/transfer.c (transfer_integer_write): Add prototype and
function body as call to the original function, without the
_write.
(transfer_real_write): Likewise.
(transfer_logical_write): Likewise.
(transfer_character_write): Likewise.
(transfer_character_wide_write): Likewise.
(transfer_complex_write): Likewise.
(transfer_array_write): Likewise.
2010-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/20165
PR fortran/31593
PR fortran/43665
* trans-io.c (enum iocall): Add IOCALL_X_INTEGER_WRITE,
IOCALL_X_LOGICAL_WRITE, IOCALL_X_CHARACTER_WRITE,
IOCALL_X_CHARACTER_WIDE_WRIE, IOCALL_X_REAL_WRITE,
IOCALL_X_COMPLEX_WRITE and IOCALL_X_ARRAY_WRITE.
(gfc_build_io_library_fndecls): Add corresponding function
decls.
(transfer_expr): If the current transfer is a READ, use
the iocall with the original version, otherwise the version
with _WRITE.
(transfer_array_desc): Likewise.
From-SVN: r165559
2010-10-16 18:06:07 +02:00
|
|
|
_gfortran_transfer_array_write;
|
|
|
|
|
_gfortran_transfer_character_write;
|
|
|
|
|
_gfortran_transfer_character_wide_write;
|
|
|
|
|
_gfortran_transfer_complex_write;
|
2010-11-16 22:23:19 +01:00
|
|
|
_gfortran_transfer_complex128;
|
|
|
|
|
_gfortran_transfer_complex128_write;
|
re PR tree-optimization/20165 (Pointer does not really escape with write)
2010-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/20165
PR fortran/31593
PR fortran/43665
* gfortran.map: Add _gfortran_transfer_array_write,
_gfortran_transfer_array_write, _gfortran_transfer_character_write,
_gfortran_transfer_character_wide_write,
_gfortran_transfer_complex_write,
_gfortran_transfer_integer_write,
_gfortran_transfer_logical_write and
_gfortran_transfer_real_write.
* io/transfer.c (transfer_integer_write): Add prototype and
function body as call to the original function, without the
_write.
(transfer_real_write): Likewise.
(transfer_logical_write): Likewise.
(transfer_character_write): Likewise.
(transfer_character_wide_write): Likewise.
(transfer_complex_write): Likewise.
(transfer_array_write): Likewise.
2010-10-16 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/20165
PR fortran/31593
PR fortran/43665
* trans-io.c (enum iocall): Add IOCALL_X_INTEGER_WRITE,
IOCALL_X_LOGICAL_WRITE, IOCALL_X_CHARACTER_WRITE,
IOCALL_X_CHARACTER_WIDE_WRIE, IOCALL_X_REAL_WRITE,
IOCALL_X_COMPLEX_WRITE and IOCALL_X_ARRAY_WRITE.
(gfc_build_io_library_fndecls): Add corresponding function
decls.
(transfer_expr): If the current transfer is a READ, use
the iocall with the original version, otherwise the version
with _WRITE.
(transfer_array_desc): Likewise.
From-SVN: r165559
2010-10-16 18:06:07 +02:00
|
|
|
_gfortran_transfer_integer_write;
|
|
|
|
|
_gfortran_transfer_logical_write;
|
|
|
|
|
_gfortran_transfer_real_write;
|
2010-11-16 22:23:19 +01:00
|
|
|
_gfortran_transfer_real128;
|
|
|
|
|
_gfortran_transfer_real128_write;
|
2011-02-16 18:18:41 +01:00
|
|
|
_gfortran_cshift0_16_char4;
|
|
|
|
|
_gfortran_eoshift0_16_char4;
|
|
|
|
|
_gfortran_eoshift2_16_char4;
|
2010-05-20 06:44:11 +02:00
|
|
|
} GFORTRAN_1.3;
|
|
|
|
|
|
2012-06-21 20:47:01 +02:00
|
|
|
GFORTRAN_1.5 {
|
|
|
|
|
global:
|
|
|
|
|
_gfortran_ftell2;
|
2012-12-20 19:15:13 +01:00
|
|
|
_gfortran_backtrace;
|
2012-06-21 20:47:01 +02:00
|
|
|
} GFORTRAN_1.4;
|
|
|
|
|
|
re PR fortran/29383 (Fortran 2003/F95[TR15580:1999]: Floating point exception (IEEE) support)
PR fortran/29383
gcc/fortran/
* gfortran.h (gfc_simplify_ieee_selected_real_kind): New prototype.
* libgfortran.h (GFC_FPE_*): Use simple integer values, valid in
both C and Fortran.
* expr.c (gfc_check_init_expr): Simplify IEEE_SELECTED_REAL_KIND.
* simplify.c (gfc_simplify_ieee_selected_real_kind): New function.
* module.c (mio_symbol): Keep track of symbols which came from
intrinsic modules.
(gfc_use_module): Keep track of the IEEE modules.
* trans-decl.c (gfc_get_symbol_decl): Adjust code since
we have new intrinsic modules.
(gfc_build_builtin_function_decls): Build decls for
ieee_procedure_entry and ieee_procedure_exit.
(is_from_ieee_module, is_ieee_module_used, save_fp_state,
restore_fp_state): New functions.
(gfc_generate_function_code): Save and restore floating-point
state on procedure entry/exit, when IEEE modules are used.
* intrinsic.texi: Document the IEEE modules.
libgfortran/
* configure.host: Add checks for IEEE support, rework priorities.
* configure.ac: Define IEEE_SUPPORT, check for fpsetsticky and
fpresetsticky.
* configure: Regenerate.
* Makefile.am: Build new ieee files, install IEEE_* modules.
* Makefile.in: Regenerate.
* gfortran.map (GFORTRAN_1.6): Add new symbols.
* libgfortran.h (get_fpu_trap_exceptions, set_fpu_trap_exceptions,
support_fpu_trap, set_fpu_except_flags, support_fpu_flag,
support_fpu_rounding_mode, get_fpu_state, set_fpu_state): New
prototypes.
* config/fpu-*.h (get_fpu_trap_exceptions,
set_fpu_trap_exceptions, support_fpu_trap, set_fpu_except_flags,
support_fpu_flag, support_fpu_rounding_mode, get_fpu_state,
set_fpu_state): New functions.
* ieee/ieee_features.F90: New file.
* ieee/ieee_exceptions.F90: New file.
* ieee/ieee_arithmetic.F90: New file.
* ieee/ieee_helper.c: New file.
gcc/testsuite/
* lib/target-supports.exp (check_effective_target_fortran_ieee):
New function.
* gfortran.dg/ieee/ieee.exp: New file.
* gfortran.dg/ieee/ieee_1.F90: New file.
* gfortran.dg/ieee/ieee_2.f90: New file.
* gfortran.dg/ieee/ieee_3.f90: New file.
* gfortran.dg/ieee/ieee_4.f90: New file.
* gfortran.dg/ieee/ieee_5.f90: New file.
* gfortran.dg/ieee/ieee_6.f90: New file.
* gfortran.dg/ieee/ieee_7.f90: New file.
* gfortran.dg/ieee/ieee_rounding_1.f90: New file.
From-SVN: r212102
2014-06-28 16:17:41 +02:00
|
|
|
GFORTRAN_1.6 {
|
|
|
|
|
global:
|
|
|
|
|
_gfortran_ieee_procedure_entry;
|
|
|
|
|
_gfortran_ieee_procedure_exit;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_class_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_class_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_class_type_eq;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_class_type_ne;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_get_rounding_mode;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_get_underflow_mode;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_round_type_eq;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_round_type_ne;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_selected_real_kind;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_set_rounding_mode;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_set_underflow_mode;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_datatype_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_datatype_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_datatype_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_datatype_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_datatype_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_denormal_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_denormal_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_denormal_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_denormal_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_denormal_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_divide_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_divide_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_divide_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_divide_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_divide_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_inf_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_inf_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_inf_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_inf_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_inf_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_io_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_io_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_io_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_io_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_io_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_nan_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_nan_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_nan_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_nan_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_nan_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_rounding_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_rounding_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_rounding_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_rounding_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_rounding_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_sqrt_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_sqrt_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_sqrt_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_sqrt_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_sqrt_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_standard_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_standard_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_standard_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_standard_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_standard_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_underflow_control_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_underflow_control_8;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_underflow_control_10;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_underflow_control_16;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_support_underflow_control_noarg;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_value_4;
|
|
|
|
|
__ieee_arithmetic_MOD_ieee_value_8;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_all;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_get_flag;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_get_halting_mode;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_get_status;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_set_flag;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_set_halting_mode;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_set_status;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_support_flag_4;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_support_flag_8;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_support_flag_noarg;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_support_halting;
|
|
|
|
|
__ieee_exceptions_MOD_ieee_usual;
|
|
|
|
|
} GFORTRAN_1.5;
|
|
|
|
|
|
2007-04-24 11:08:52 +02: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 05:14:01 +01:00
|
|
|
lgamma;
|
|
|
|
|
lgammaf;
|
2007-04-24 11:08:52 +02:00
|
|
|
log10f;
|
|
|
|
|
log10l;
|
|
|
|
|
logf;
|
|
|
|
|
nextafterf;
|
|
|
|
|
powf;
|
|
|
|
|
round;
|
|
|
|
|
roundf;
|
|
|
|
|
scalbn;
|
|
|
|
|
scalbnf;
|
|
|
|
|
sinf;
|
|
|
|
|
sinhf;
|
|
|
|
|
sqrtf;
|
|
|
|
|
tanf;
|
|
|
|
|
tanhf;
|
2007-11-30 05:14:01 +01:00
|
|
|
tgamma;
|
|
|
|
|
tgammaf;
|
2007-04-24 11:08:52 +02:00
|
|
|
trunc;
|
|
|
|
|
truncf;
|
|
|
|
|
y0f;
|
|
|
|
|
y1f;
|
|
|
|
|
ynf;
|
|
|
|
|
};
|
2009-07-27 11:24:41 +02:00
|
|
|
|
|
|
|
|
GFORTRAN_C99_1.1 {
|
|
|
|
|
global:
|
|
|
|
|
cacos;
|
|
|
|
|
cacosf;
|
|
|
|
|
cacosh;
|
|
|
|
|
cacoshf;
|
|
|
|
|
cacoshl;
|
|
|
|
|
cacosl;
|
|
|
|
|
casin;
|
|
|
|
|
casinf;
|
|
|
|
|
casinh;
|
|
|
|
|
casinhf;
|
|
|
|
|
casinhl;
|
|
|
|
|
casinl;
|
|
|
|
|
catan;
|
|
|
|
|
catanf;
|
|
|
|
|
catanh;
|
|
|
|
|
catanhf;
|
|
|
|
|
catanhl;
|
|
|
|
|
catanl;
|
2009-08-14 19:44:50 +02:00
|
|
|
llround;
|
|
|
|
|
llroundf;
|
|
|
|
|
llroundl;
|
|
|
|
|
lround;
|
|
|
|
|
lroundf;
|
|
|
|
|
lroundl;
|
|
|
|
|
roundl;
|
2009-07-27 11:24:41 +02:00
|
|
|
} GFORTRAN_C99_1.0;
|
