summaryrefslogtreecommitdiffstats
path: root/gcc/testsuite/gfortran.fortran-torture
Commit message (Collapse)AuthorAgeFilesLines
...
* * decl.c (gfc_match_entry): Allow ENTRY without parenthesesjakub2005-07-061-0/+24
| | | | | | | | | even in FUNCTIONs. * gfortran.fortran-torture/execute/entry_9.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101672 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-06-28 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-06-281-0/+6
| | | | | | | | | | | | | | | | | PR libfortran/22142 * m4/eoshift1.m4: Correct bstride (it needs to be multiplied by size since it's a char pointer). * m4/eoshift1_4.c: Regenerated. * m4/eoshift1_8.c: Regenerated. 2005-06-28 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/22142 * gfortran.fortran-torture/execute/intrinsic_eoshift.f90: Add testcase also testing eoshift1 for PR 22142. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101398 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-06-28 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-06-281-0/+8
| | | | | | | | | | | | | | | | | PR libfortran/22142 * m4/eoshift3.m4: Correct bstride (it needs to be multiplied by size since it's a char pointer). * m4/eoshift3_4.c: Regenerated. * m4/eoshift3_8.c: Regenerated. 2005-06-28 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/22142 * gfortran.fortran-torture/execute/intrinsic_eoshift.f90: Add testcase for PR 22142. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101392 138bc75d-0d04-0410-961f-82ee72b054a4
* Update FSF address.kcook2005-06-252-2/+2
| | | | git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@101316 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-06-11 Thomas Koenig <Thomas.Koenig@onlinde.de>tkoenig2005-06-111-0/+92
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | PR libfortran/21333 * Makefile.am: Add in_pack_c4.c, in_pack_c8.c, in_unpack_c4.c and in_unpack_c8.c. * Makefile.in: Regenerate. * libgfortran.h: Declare internal_pack_c4, internal_pack_c8, internal_unpack_c4 and internal_unpack_c8. * m4/in_pack.m4: Use rtype_ccode insteald of rtype_kind in function name. Use sizeof (rtype_name) as size for memory allocation. * m4/in_unpack.m4: Use rtype_ccode insteald of rtype_kind in function name. Use sizeof (rtype_name) for calculation of sizes for memcpy. * runtime/in_pack_generic.c: For real, integer and logical call internal_pack_4 if size==4 and internal_pack_8 if size==8. For complex, call internal_pack_c4 if size==8 and internal_pack_c8 if size==16. * runtime/in_unpack_generic.c: For real, integer and logical call internal_unpack_4 if size==4 and internal_unpack_8 if size==8. For complex, call internal_unpack_c4 if size==8 and internal_unpack_c8 if size==16. * generated/in_pack_i4.c: Regenerated. * generated/in_pack_i8.c: Regenerated. * generated/in_unpack_i4.c: Regenerated. * generated/in_unpack_i8.c: Regenerated. * generated/in_pack_c4.c: New file. * generated/in_pack_c8.c: New file. * generated/in_unpack_c4.c: New file. * generated/in_unpack_c8.c: New file. 2005-05-11 Thomas Koenig <Thomas.Koenig@online.de> * gfortran.fortran-torture/execute/in-pack.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100842 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-06-07 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-06-071-0/+8
| | | | | | | | | | | | | | | | | | | | | | PR libfortran/21926 * m4/matmul.m4: Correct zeroing of result for non-packed arrays with lowest stride is one. * generated/matmul_c4.c: Regenerated. * generated/matmul_c8.c: Regenerated. * generated/matmul_i4.c: Regenerated. * generated/matmul_i8.c: Regenerated. * generated/matmul_r4.c: Regenerated. * generated/matmul_r8.c: Regenerated. 2005-06-07 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/21926 * gfortran.fortran-torture/execute/intrinsic_matmul.f90: Test case where the return array has lowest stride one, but isn't packed. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100721 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-05-26 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-05-261-0/+4
| | | | | | | | | | | | | | | | | | PR libfortran/17283 * gfortran.fortran-torture/execute/intrinsic_unpack.f90: Test callee-allocated memory with write statements. 2005-05-26 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/17283 * intrinsics/unpack_generic.c: Fix name of routine on top. Update copyright years. (unpack1): Remove const from return array descriptor. rs: New variable, for calculating return sizes. Populate return array descriptor if ret->data is NULL. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100189 138bc75d-0d04-0410-961f-82ee72b054a4
* PR fortran/15080jakub2005-05-173-2/+82
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | * trans-stmt.c (generate_loop_for_temp_to_lhs): Remove SIZE and COUNT2 arguments. If LSS is gfc_ss_terminator, increment COUNT1 by 1, instead of incrementing COUNT2 and using COUNT1+COUNT2 increment COUNT1 and use just that as index. (generate_loop_for_rhs_to_temp): Likewise. (compute_overall_iter_number): Add INNER_SIZE_BODY argument. It non-NULL, add it to body. (allocate_temp_for_forall_nest_1): New function, split from allocate_temp_for_forall_nest. (allocate_temp_for_forall_nest): Add INNER_SIZE_BODY argument, propagate it down to compute_overall_iter_number. Use allocate_temp_for_forall_nest_1. (gfc_trans_assign_need_temp): Remove COUNT2. Call compute_inner_temp_size into a new stmtblock_t. Adjust calls to allocate_temp_for_forall_nest, generate_loop_for_rhs_to_temp and generate_loop_for_temp_to_lhs. (gfc_trans_pointer_assign_need_temp): Adjust calls to allocate_temp_for_forall_nest. (gfc_evaluate_where_mask): Call compute_inner_temp_size into a new stmtblock_t. Call compute_overall_iter_number just once, then allocate_temp_for_forall_nest_1 twice with the same size. Initialize mask indexes if nested_forall_info != NULL. (gfc_trans_where_2): Initialize mask indexes before calling gfc_trans_nested_forall_loop. * gfortran.fortran-torture/execute/forall_3.f90: Remove comment about the test failing. * gfortran.fortran-torture/execute/where_7.f90: New test. * gfortran.fortran-torture/execute/where_8.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@99812 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-04-29 Jakub Jelinek <jakub@redhat.com>jakub2005-04-298-0/+519
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | PR fortran/13082 PR fortran/18824 * trans-expr.c (gfc_conv_variable): Handle return values in functions with alternate entry points. * resolve.c (resolve_entries): Remove unnecessary string termination after snprintf. Set result of entry master. If all entries have the same type, set entry master's type to that common type, otherwise set mixed_entry_master attribute. * trans-types.c (gfc_get_mixed_entry_union): New function. (gfc_get_function_type): Use it for mixed_entry_master functions. * gfortran.h (symbol_attribute): Add mixed_entry_master bit. * decl.c (gfc_match_entry): Set entry->result properly for function ENTRY. * trans-decl.c (gfc_get_symbol_decl): For entry_master, skip over __entry argument. (build_entry_thunks): Handle return values in entry thunks. Clear BT_CHARACTER's ts.cl->backend_decl, so that it is not shared between multiple contexts. (gfc_get_fake_result_decl): Use DECL_ARGUMENTS from current_function_decl instead of sym->backend_decl. Skip over entry master's entry id argument. For mixed_entry_master entries or their results, return a COMPONENT_REF of the fake result. (gfc_trans_deferred_vars): Don't warn about missing return value if at least one entry point uses RESULT. (gfc_generate_function_code): For entry master returning CHARACTER, copy ts.cl->backend_decl to all entry result syms. * trans-array.c (gfc_trans_dummy_array_bias): Don't consider return values optional just because they are in entry master. * gfortran.dg/entry_4.f90: New test. * gfortran.fortran-torture/execute/entry_1.f90: New test. * gfortran.fortran-torture/execute/entry_2.f90: New test. * gfortran.fortran-torture/execute/entry_3.f90: New test. * gfortran.fortran-torture/execute/entry_4.f90: New test. * gfortran.fortran-torture/execute/entry_5.f90: New test. * gfortran.fortran-torture/execute/entry_6.f90: New test. * gfortran.fortran-torture/execute/entry_7.f90: New test. 2005-04-29 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de> * gfortran.fortran-torture/execute/entry_8.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98993 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-04-15 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-04-151-1/+1
| | | | | | | | * gfortran.fortran-torture/execute/intrinsic_spread.f90: corrected typo where the wrong variables had been compared. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98209 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-04-15 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-04-151-0/+7
| | | | | | | | | | | | | | | | | | | | | | | | | | | | PR libfortran/18495 * intrinsics/spread_generic.c (spread): Remove const from return array descriptor. New variables: rrank (rank of return array), rs (for calculating the size of the return array), srank (rank of the source array). Generate runtime error if the dim= argument is larger than the rank of the return array. Generate runtime error if the needed rank of the return array is larger than 7. If ret->data is null, populate the return array descriptor and initialize the variables for the actual operation. Otherwise, set ret->dim[0].stride to one if it is zero. Change second, independent use of variable dim to srank. 2005-04-15 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/18495 * gfortran.fortran-torture/execute/intrinsic_spread.f90: Test callee-allocated version of return array with a write statement. Test spread with a temporary with another write statement. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98208 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-04-13 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-04-124-4/+40
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | PR libfortran/19106 * m4/iforeach.c (name`'rtype_qual`_'atype_code): Add TODO that setting correct strides is a front end job. (`m'name`'rtype_qual`_'atype_code): Likewise. If mask has a lowest stride of 0, adjust to 1. * m4/ifunction.c (name`'rtype_qual`_'atype_code): Add TODO that setting correct strides is a front end job. (`m'name`'rtype_qual`_'atype_code): Likewise. If mask has a lowest stride of 0, adjust to 1. * maxloc0_4_i4.c: Regenerated * maxloc0_4_i8.c: Regenerated * maxloc0_4_r4.c: Regenerated * maxloc0_4_r8.c: Regenerated * maxloc0_8_i4.c: Regenerated * maxloc0_8_i8.c: Regenerated * maxloc0_8_r4.c: Regenerated * maxloc0_8_r8.c: Regenerated * maxloc1_4_i4.c: Regenerated * maxloc1_4_i8.c: Regenerated * maxloc1_4_r4.c: Regenerated * maxloc1_4_r8.c: Regenerated * maxloc1_8_i4.c: Regenerated * maxloc1_8_i8.c: Regenerated * maxloc1_8_r4.c: Regenerated * maxloc1_8_r8.c: Regenerated * maxval_i4.c: Regenerated * maxval_i8.c: Regenerated * maxval_r4.c: Regenerated * maxval_r8.c: Regenerated * minloc0_4_i4.c: Regenerated * minloc0_4_i8.c: Regenerated * minloc0_4_r4.c: Regenerated * minloc0_4_r8.c: Regenerated * minloc0_8_i4.c: Regenerated * minloc0_8_i8.c: Regenerated * minloc0_8_r4.c: Regenerated * minloc0_8_r8.c: Regenerated * minloc1_4_i4.c: Regenerated * minloc1_4_i8.c: Regenerated * minloc1_4_r4.c: Regenerated * minloc1_4_r8.c: Regenerated * minloc1_8_i4.c: Regenerated * minloc1_8_i8.c: Regenerated * minloc1_8_r4.c: Regenerated * minloc1_8_r8.c: Regenerated * minval_i4.c: Regenerated * minval_i8.c: Regenerated * minval_r4.c: Regenerated * minval_r8.c: Regenerated * product_c4.c: Regenerated * product_c8.c: Regenerated * product_i4.c: Regenerated * product_i8.c: Regenerated * product_r4.c: Regenerated * product_r8.c: Regenerated * sum_c4.c: Regenerated * sum_c8.c: Regenerated * sum_i4.c: Regenerated * sum_i8.c: Regenerated * sum_r4.c: Regenerated * sum_r8.c: Regenerated 2005-04-13 Thomas Koenig <Thomas.Koenig@online.de> PR libfortran/19016 * gfortran.fortran-torture/execute/intrinsic_mmloc.f90: Add tests with mask generated by expression. * gfortran.fortran-torture/execute/intrinsic_mmval.f90: Likewise. * gfortran.fortran-torture/execute/intrinsic_product.f90: Likewise. * gfortran.fortran-torture/execute/intrinsic_sum.f90: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98052 138bc75d-0d04-0410-961f-82ee72b054a4
* 2005-04-09 Thomas Koenig <Thomas.Koenig@online.de>tkoenig2005-04-096-0/+117
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | PR libfortran/19106 PR libfortran/19014 * m4/ifunction.m4 (name`'rtype_qual`_'atype_code): ditto. If retarray->data is NULL (i.e. the front end does not know the rank and dimenson of the array), fill in its properties and allocate memory. Change the assertions about rank and dimension of retarray into runtime errors and only check them for retarray->data != NULL. Do the same for correcting the stride from 0 to 1 in retarray. (`m'name`'rtype_qual`_'atype_code): Likewise. * m4/iforeach.m4 (name`'rtype_qual`_'atype_code): Likewise. Change assertion about rank of array to runtime error. (`m'name`'rtype_qual`_'atype_code): Likewise. * generated/all_l4.c: Regenerated. * generated/all_l8.c: Regenerated. * generated/any_l4.c: Regenerated. * generated/any_l8.c: Regenerated. * generated/count_4_l4.c: Regenerated. * generated/count_4_l8.c: Regenerated. * generated/count_8_l4.c: Regenerated. * generated/count_8_l8.c: Regenerated. * generated/maxloc0_4_i4.c: Regenerated. * generated/maxloc0_4_i8.c: Regenerated. * generated/maxloc0_4_r4.c: Regenerated. * generated/maxloc0_4_r8.c: Regenerated. * generated/maxloc0_8_i4.c: Regenerated. * generated/maxloc0_8_i8.c: Regenerated. * generated/maxloc0_8_r4.c: Regenerated. * generated/maxloc0_8_r8.c: Regenerated. * generated/maxloc1_4_i4.c: Regenerated. * generated/maxloc1_4_i8.c: Regenerated. * generated/maxloc1_4_r4.c: Regenerated. * generated/maxloc1_4_r8.c: Regenerated. * generated/maxloc1_8_i4.c: Regenerated. * generated/maxloc1_8_i8.c: Regenerated. * generated/maxloc1_8_r4.c: Regenerated. * generated/maxloc1_8_r8.c: Regenerated. * generated/maxval_i4.c: Regenerated. * generated/maxval_i8.c: Regenerated. * generated/maxval_r4.c: Regenerated. * generated/maxval_r8.c: Regenerated. * generated/minloc0_4_i4.c: Regenerated. * generated/minloc0_4_i8.c: Regenerated. * generated/minloc0_4_r4.c: Regenerated. * generated/minloc0_4_r8.c: Regenerated. * generated/minloc0_8_i4.c: Regenerated. * generated/minloc0_8_i8.c: Regenerated. * generated/minloc0_8_r4.c: Regenerated. * generated/minloc0_8_r8.c: Regenerated. * generated/minloc1_4_i4.c: Regenerated. * generated/minloc1_4_i8.c: Regenerated. * generated/minloc1_4_r4.c: Regenerated. * generated/minloc1_4_r8.c: Regenerated. * generated/minloc1_8_i4.c: Regenerated. * generated/minloc1_8_i8.c: Regenerated. * generated/minloc1_8_r4.c: Regenerated. * generated/minloc1_8_r8.c: Regenerated. * generated/minval_i4.c: Regenerated. * generated/minval_i8.c: Regenerated. * generated/minval_r4.c: Regenerated. * generated/minval_r8.c: Regenerated. * generated/product_c4.c: Regenerated. * generated/product_c8.c: Regenerated. * generated/product_i4.c: Regenerated. * generated/product_i8.c: Regenerated. * generated/product_r4.c: Regenerated. * generated/product_r8.c: Regenerated. * generated/sum_c4.c: Regenerated. * generated/sum_c8.c: Regenerated. * generated/sum_i4.c: Regenerated. * generated/sum_i8.c: Regenerated. * generated/sum_r4.c: Regenerated. * generated/sum_r8.c: Regenerated. 2005-04-09 Thomas Koenig <Thomas.Koenig@online.de> * gfortran.fortran-torture/execute/intrinsic_anyall.f90: Added test for callee-allocated arrays with write statements. * gfortran.fortran-torture/execute/intrinsic_count.f90: Likewise. * gfortran.fortran-torture/execute/intrinsic_mmloc.f90: Likewise. * gfortran.fortran-torture/execute/intrinsic_mmval.f90: Likewise. * gfortran.fortran-torture/execute/intrinsic_product.f90: Likewise. * gfortran.fortran-torture/execute/intrinsic_sum.f90: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97929 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.fortran-torture/execute/backspace.f90: Checkfxcoudert2005-04-011-1/+1
| | | | | | | after backspace and read was incorrect. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@97397 138bc75d-0d04-0410-961f-82ee72b054a4
* * Replace tabs with spaces.kargl2005-03-073-24/+24
| | | | git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96009 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.dg/ishft.f90: Remove kind suffix from BOZ constantkargl2005-02-281-4/+5
| | | | | | | * gfortran.fortran-torture/execute/intrinsic_mvbits.f90: ditto git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95644 138bc75d-0d04-0410-961f-82ee72b054a4
* 2004-02-18 Andrew Pinski <pinskia@physics.uc.edu>pinskia2005-02-181-0/+21
| | | | | | | | PR middle-end/20030 * gfortran.fortran-torture/execute/character_passing.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@95227 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.fortran-torture/execute/read_eof.f90: Open scratchdje2004-12-301-1/+2
| | | | | | | file, not /dev/null. Abort on error. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92737 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-12-271-0/+3
| | | | | | | | | | | | | | | | PR fortran/19032 * trans-intrinsic.c (gfc_conv_intrinsic_mod): Update comment in front of function to match the standard. Correct handling of MODULO. testsuite/ PR fortran/19032 * gfortran.dg/intrinsic_modulo_1.f90: New. * gfortran.fortran-torture/execute/intrinsic_mod_ulo.f90: Add tests with divisor -1. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92645 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.fortran-torture/execute/intrinsic_mvbits.f90,tobi2004-10-071-2/+2
| | | | | | | | gfortran.dg/ishft.f90: Add more tests. Add dg-warning in followup commit. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88695 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-10-071-0/+5
| | | | | | | | | | | | * primary.c (match_boz_constant): Allow kind parameter suffixes. Move standard warning further to the front. testsuite/ * gfortran.fortran-torture/execute/intrinsic_mvbits.f90, gfortran.dg/ishft.f90: Add more tests. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88690 138bc75d-0d04-0410-961f-82ee72b054a4
* 2004-10-06 Andrew Pinski <pinskia@physics.uc.edu>pinskia2004-10-061-0/+23
| | | | | | | | | | | | | | | | | | | | | | | | | PR middle-end/17849 * gfortran.fortran-torture/compile/nested.f90: New test 2004-10-06 Andrew Pinski <pinskia@physics.uc.edu> PR middle-end/17849 * tree-nested.c (walk_stmt_info): Add changed field. (convert_nonlocal_reference): Set changed to when we change a decl to unnested decl. <case ADDR_EXPR>: Instead of checking if the immediate part of the ADDR_EXPR changed, check the field changed. Use recompute_tree_invarant_for_addr_expr instead of unsetting TREE_INVARIANT. (convert_local_reference): Set changed to when we change a decl to unnested decl. <case ADDR_EXPR>: Instead of checking if the immediate part of the ADDR_EXPR changed, check the field changed. Also call recompute_tree_invarant_for_addr_expr on the ADDR_EXPR. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88650 138bc75d-0d04-0410-961f-82ee72b054a4
* PR fortran/17283tobi2004-10-061-2/+1
| | | | | | | | * gfortran.fortran-torture/execute/intrinsic_pack.f90: Enable new tests. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88610 138bc75d-0d04-0410-961f-82ee72b054a4
* PR fortran/17631tobi2004-10-041-0/+10
| | | | | | | | | | | | | | | | | | fortran/ * intrinsic.c (add_sym_5): Remove. (add_subroutines): Add resolution function for MVBITS. * intrinsic.h (gfc_resolve_mvbits): Declare resolution function for MVBITS * iresolve.c (gfc_resolve_mvbits): New function. (gfc_resolve_random_number): Remove empty line at end of function. libgfortran/ * Makefile.am (gfor_helper_src): Add intrinsics/mvbits.h. * intrinsics/mvbits.h: New file. testsuite/ * gfortran.fortran-torture/execute/intrinsic_mvbits.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88527 138bc75d-0d04-0410-961f-82ee72b054a4
* PR fortran/17283tobi2004-10-041-1/+14
| | | | | | | | | | | | | | | | | fortran/ * iresolve.c (gfc_resolve_pack): Choose function depending if mask is scalar. libgfortran/ * intrinsics/pack_generic.c (__pack): Allocate memory for return array if not done by caller. (__pack_s): New function. * runtime/memory.c (internal_malloc, internal_malloc64): Allow allocating zero memory. testsuite/ * gfortran.fortran-torture/execute/intrinsic_pack.f90: Add more tests. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@88526 138bc75d-0d04-0410-961f-82ee72b054a4
* PR fortran/15750tobi2004-09-201-0/+24
| | | | | | | * gfortran.fortran-torture/execute/iolength_2.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@87752 138bc75d-0d04-0410-961f-82ee72b054a4
* * lib/fortran-torture.exp (add-ieee-options): Replace ieee-options;rth2004-09-124-4/+4
| | | | | | | | | | | do the uplevel thing and update additional_flags directly. * gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x, gfortran.fortran-torture/execute/intrinsic_nearest.x, gfortran.fortran-torture/execute/intrinsic_set_exponent.x, gfortran.fortran-torture/execute/nan_inf_fmt.x: Update to match. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@87399 138bc75d-0d04-0410-961f-82ee72b054a4
* 2004-09-03 David Billinghurst <David.Billinghurst@riotinto.com>billingd2004-09-031-6/+0
| | | | | | | | | PR fortran/16579 * gfortran.fortran-torture/execute/intrinsic_i_char.f90: Delete. Duplicate of gfortran.dg/g77/20010610.f git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@87024 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-08-311-0/+6
| | | | | | | | | | | | | PR fortran/16579 * trans-types.c (gfc_init_types): Make gfc_character1_type_node an unsigned char. testsuite/ PR fortran/16579 * gfortran.fortran-torture/execute/intrinsic_i_char.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86846 138bc75d-0d04-0410-961f-82ee72b054a4
* * lib/fortran-torture.exp (fortran-torture-execute): Honorrth2004-08-304-0/+8
| | | | | | | | | | | | additional_flags set by alternate driver. (ieee-options): New procedure. * gfortran.fortran-torture/execute/intrinsic_fraction_exponent.x: New. * gfortran.fortran-torture/execute/intrinsic_nearest.x: New. * gfortran.fortran-torture/execute/intrinsic_set_exponent.x: New. * gfortran.fortran-torture/execute/nan_inf_fmt.x: New. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86761 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.fortran-torture/execute/intrinsic_sr_kind.f90: Disablerth2004-08-261-14/+15
| | | | | | | the bits that expect kind=8 to be the largest real kind. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86604 138bc75d-0d04-0410-961f-82ee72b054a4
* * gimplify.c (gimplify_expr) <case CONST_DECL>: Don't replacerth2004-07-302-8/+12
| | | | | | | | | | | | | | | | | | with DECL_INITIAL if fb_lvalue. * tree-gimple.c (is_gimple_id): Add CONST_DECL. * tree-pretty-print.c (dump_decl_name): Dump unnamed CONST_DECL with <Cxxx>. * tree-ssa-ccp.c (maybe_fold_stmt_indirect): Fold CONST_DECL. fortran/ * trans-expr.c (gfc_conv_expr_reference): Create a CONST_DECL for TREE_CONSTANTs. testsuite/ * gfortran.fortran-torture/execute/intrinsic_rrspacing.f90: Fix write to constant argument. * gfortran.fortran-torture/execute/intrinsic_scale.f90: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@85365 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.fortran-torture/execute/intrinsic_nearest.f90: Disablerth2004-07-301-7/+14
| | | | | | | tests of nearest around zero. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@85361 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.fortran-torture/execute/intrinsic_spacing.f90: Passrth2004-07-281-6/+8
| | | | | | | arguments in the correct type. Don't write to constant arguments. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@85272 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-07-151-0/+3
| | | | | | | | | | | | | PR fortran/13792 * simplify.c (gfc_simplify_bound): Copy the bound expression. testsuite/ PR fortran/13792 * gfortran.fortran-torture/execute/bounds.f90: Add check for compile-time simplification. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84773 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-07-101-0/+6
| | | | | | | | | | | | | * trans-decl.c (gfc_create_module_variable): Nothing to do if symbol is in common, because we ... (gfc_generate_module_vars): Call gfc_trans_common. testsuite/ * gfortran.fortran-torture/execute/common_2.f90: Add check for access to common var from module. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84479 138bc75d-0d04-0410-961f-82ee72b054a4
* PR fortran/16336tobi2004-07-101-0/+14
| | | | | | | * gfortran.fortran-torture/execute/common_2.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84478 138bc75d-0d04-0410-961f-82ee72b054a4
* * trans-array.c (gfc_build_null_descriptor): New function.pbrook2004-07-101-3/+3
| | | | | | | | | | | (gfc_trans_static_array_pointer): Use it. * trans-array.h (gfc_build_null_descriptor): Add prototype. * trans-expr.c (gfc_conv_structure): Handle array pointers. testsuite/ * gfortran.fortran-torture/execute/der_init_5.f90: Enable more tests. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84477 138bc75d-0d04-0410-961f-82ee72b054a4
* PR fortran/15969tobi2004-07-101-0/+16
| | | | | | | * gfortran.fortran-torture/execute/der_init_5.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84466 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.fortran-torture/execute/module_init_1.f90: Fix test.tobi2004-07-101-2/+2
| | | | git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84451 138bc75d-0d04-0410-961f-82ee72b054a4
* PR fortran/14077tobi2004-07-091-0/+9
| | | | | | | * gfortran.fortran-torture/execute/module_init_1.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84412 138bc75d-0d04-0410-961f-82ee72b054a4
* * gfortran.fortran-torture/compile/name_clash2.f90: Remove outdatedtobi2004-07-091-1/+0
| | | | | | | comment. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84395 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-07-091-0/+6
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | 2004-07-09 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> PR fortran/15481 PR fortran/13372 PR fortran/13575 PR fortran/15978 * module.c (write_symbol, write_symtree): Remove workaround. * primary.c (match_actual_arglist): Enhance comment. (gfc_match_rvalue): Handle function call with first argument a keyword argument correctly. * resolve.c (resolve_symbol): Change call to gfc_set_default_type to issue error if no implicit type can be found. * trans-decl.c (gfc_create_module_variable): Remove workaround. testsuite/ PR fortran/15481 PR fortran/13372 PR fortran/13575 PR fortran/15978 * gfortran.fortran-torture/compile/implicit_2.f90: New test. Also fixed David Billinghursts ChangeLog entry to use GMT git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84373 138bc75d-0d04-0410-961f-82ee72b054a4
* 2004-07-04 Bud Davis <bdavis9659@comcast.net>bdavis2004-07-051-0/+81
| | | | | | | | | | | | | | | | | | Paul Brook <paul@codesourcery.com> PR fortran/15472 * io/transfer.c(us_write): set recl for seq unform writes to max size. * io/transfer.c(data_transfer_init): handle un-opened seq unform unit. * io/unix.c(fd_alloc_w_at): handle requests at start, fd_flush at right time. * io/unix.c(is_seekable): set based upon the file/device, not the method being used to access it (fd or mmap). * io/unix.c(fd_flush): don't set file_size if !seekable. * io/unix.c(fd_truncate: ditto. * gfortran.fortran-torture/execute/seq_io.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84104 138bc75d-0d04-0410-961f-82ee72b054a4
* * decl.c (gfc_match_implicit_range): Don't use typespec.pbrook2004-07-031-0/+32
| | | | | | | | | | | | | | | | | (gfc_match_implicit): Handle character selectors. * gfortran.h (gfc_set_implicit): Remove prototype. (gfc_add_new_implicit_range, gfc_merge_new_implicit): Update. * parse.c (accept_statement): Don't call gfc_set_implicit. * symbol.c (new_ts): Remove. (gfc_set_implicit_none): Use same loop bounds as other functions. (gfc_set_implicit): Remove. (gfc_clear_new_implicit, gfc_add_new_implicit_range): Only set flags. (gfc_merge_new_implicit): Combine with gfc_set_implicit. testsuite/ * gfortran.fortran-torture/compile/implicit_1.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84063 138bc75d-0d04-0410-961f-82ee72b054a4
* 2004-07-02 David Billinghurst (David.Billinghurst@riotinto.com)billingd2004-07-021-4/+4
| | | | | | | | | PR fortran/16290 * gfortran.fortran-torture/execute/intrinsic_set_exponent.f90 Allow for cases without denormalized floating point numbers. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@84018 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-06-301-0/+5
| | | | | | | | | | | | | | | | | | | | | | | | | | | | PR fortran/16161 * decl.c (gfc_match_type_spec): Rename second argument to 'implicit_flag', reverse meaning. Don't match_char_spec if 'implicit_flag' is set. Rename to ... (match_type_spec): ... this. (gfc_match_implicit_none, match_implicit_range): Move here from match.c. (gfc_match_implicit): Move here from match.c, try to match_char_len if match_implicit_range doesn't succeed for CHARACTER implicits. Call renamed fucntion match_type_spec. (gfc_match_data_decl, match_prefix): Call renamed function match_type_spec. * match.c (gfc_match_implicit_none, match_implicit_range, gfc_match_implicit): Move to decl.c. * match.h (gfc_match_implicit_none, gfc_match_implicit): Move protoypes to section 'decl.c'. (gfc_match_type_spec): Remove prototype. testsuite/ PR fortran/16161 * gfortran.fortran-torture/compile/implicit.f90: Add test for implicit character. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83907 138bc75d-0d04-0410-961f-82ee72b054a4
* 2004-06-30 David Billinghurst (David.Billinghurst@riotinto.com)billingd2004-06-301-3/+2
| | | | | | | | | PR fortran/16289 * gfortran.fortran-torture/execute/intrinsic_nearest.f90 Use tiny() intrinsic to find smallest non-negative real git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83904 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-06-291-0/+7
| | | | | | | | | | | | * module.c (mio_gmp_real): Correct writing of negative numbers. testsuite/ * gfortran.fortran-torture/execute/parameter_2.f90: New test. Also corrected dates in previous ChangeLog entries git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83862 138bc75d-0d04-0410-961f-82ee72b054a4
* fortran/tobi2004-06-291-0/+10
| | | | | | | | | | | | | PR fortran/15963 * expr.c (check_intrinsic_op): Allow comparison of characters. Make logic easier. testsuite/ PR fortran/15963 * gfortran.fortran-torture/execute/initialization_1.f90: New test. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@83859 138bc75d-0d04-0410-961f-82ee72b054a4
OpenPOWER on IntegriCloud