1. 16 Jan, 2008 16 commits
  2. 15 Jan, 2008 14 commits
    • f95-lang.c (gfc_init_builtin_functions): Initialize GOMP builtins for flag_tree_parallelize_loops. · e0e8ce7a
      2008-01-15  Sebastian Pop  <sebastian.pop@amd.com>
      
      	* f95-lang.c (gfc_init_builtin_functions): Initialize GOMP builtins
      	for flag_tree_parallelize_loops.
      
      From-SVN: r131556
      Sebastian Pop committed
    • parser.c (cp_parser_template_parameter): Fix C90 issue with mixing declaration and code. · cde7bfee
      2008-01-15  Andreas Tobler  <a.tobler@schweiz.org>
      
              * parser.c (cp_parser_template_parameter): Fix C90 issue with mixing
              declaration and code.  Update copyright year.
      
      From-SVN: r131555
      Andreas Tobler committed
    • re PR libfortran/34671 (any(kind=1) and all(kind=1)) · 90469382
      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
      Thomas Koenig committed
    • re PR c++/34399 (ICE on invalid friend declaration of variadic template) · ac90ae18
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
      	PR c++/34399
      	* friend.c (do_friend): Don't query TYPE_BEING_DEFINED unless we
      	know we have a class type.
      
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
      	PR c++/34399
      	* g++.dg/cpp0x/vt-34399.C: New.
      	* g++.dg/template/friend50.C: New.
      
      From-SVN: r131552
      Douglas Gregor committed
    • Clarify the second argument usage for "c-fix"-es. · 44b962f2
      From-SVN: r131550
      Bruce Korb committed
    • Clarify the second argument usage for "c-fix"-es. · 5af3679c
      From-SVN: r131549
      Bruce Korb committed
    • re PR c++/34751 (ICE with pointer to member and variadic templates) · cdcae745
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
      	PR c++/34751
      	* pt.c (coerce_template_parameter_pack): When substituting into
      	the type of a non-type template parameter pack. use the
      	deduced/substituted arguments.
      	* parser.c (declarator_can_be_parameter_pack): A pointer-to-member
      	can be a parameter pack with the ellipsis following it.  When we
      	have an erroneous declaration, allow it to be a parameter pack.
      	(cp_parser_template_parameter): Complain about default
      	arguments on non-type template parameter packs, and parse them
      	using the new cp_parser_default_argument.
      	(cp_parser_parameter_declaration): Complain about parameter packs
      	with default arguments. Move parsing of default arguments into a
      	new function, cp_parser_default_argument.
      	(cp_parser_default_argument): New; extracted from
      	cp_parser_parameter_declaration.
      
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
      	PR c++/34751
      	* g++.dg/cpp0x/vt-34751.C: New.
      
      From-SVN: r131548
      Douglas Gregor committed
    • re PR c++/34051 (ICE in dependent_type_p with variadic templates) · 4439d02f
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
      	PR c++/34051
      	PR c++/34055
      	PR c++/34102
      	PR c++/34103
      	* typeck.c (check_return_expr): If there are bare parameter packs
      	in the return value, set it to error_mark_node.
      	* tree.c (cp_walk_subtrees): Walk USING_DECL nodes.
      	* pt.c (find_parameter_packs_r): Look at the type of
      	IDENTIFIER_NODEs (e.g., for user-defined conversions).
      	(check_for_bare_parameter_packs): Flip the result: now returns
      	TRUE when there were bare parameter packs, FALSE otherwise.
      	(push_template_decl_real): Deal with flipped result of
      	check_for_bare_parameter_packs.
      	* semantics.c (finish_cond): If there are bare parameter packs in
      	the conditional, set it to error_mark_node.
      	(finish_expr_stmt): If there are bare parameter packs in the
      	expression, set it to error_mark_node.
      	(finish_for_expr): Ditto.
      	(finish_switch_cond): If there are bare parameter packs in
      	the conditional, set it to error_mark_node.
      	(finish_mem_initializers): If there are bare parameter packs in
      	the member initializer, set it to error_mark_node.
      	(finish_member_declaration): Check the attributes of the
      	declaration for bare parameter packs, and remove the attributes if
      	any have bare parameter packs.
      	* parser.c (cp_parser_using_declaration): Check the using
      	declaration for bare parameter packs.
      	(cp_parser_base_clause): If there are bare parameter packs in a
      	base specifier, don't add it to the chain.
      
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
      	PR c++/34051
      	PR c++/34055
      	PR c++/34102
      	PR c++/34103
      	* g++.dg/cpp0x/vt-34051-2.C: New.
      	* g++.dg/cpp0x/vt-34102.C: New.
      	* g++.dg/cpp0x/vt-34051.C: New.
      	* g++.dg/cpp0x/vt-34055.C: New.
      	* g++.dg/cpp0x/vt-34103.C: New.
      
      From-SVN: r131547
      Douglas Gregor committed
    • re PR c++/34314 (ICE on invalid code (with variadic templates): tree check:… · a022041e
      re PR c++/34314 (ICE on invalid code (with variadic templates): tree check: expected class ‘type’, have ‘exceptional’ (error_mark) in template_class_depth)
      
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
             PR c++/34314
             * error.c (dump_simple_decl): Display ellipsis for template
             non-type parameter packs.
             (dump_decl): Display ellipsis for template type parameter packs.
             (dump_template_decl): Display ellipsis for template template
             parameter packs.
             * pt.c (redeclare_class_template): When redeclaring a class
             template, check for collisions between template parameters and
             template parameter packs.
      
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
             PR c++/34314
             * g++.dg/cpp0x/vt-34314.C: New.
             * g++.dg/cpp0x/variadic79.C: Fix the error message to reflect
             reality (the error message was wrong previously).
      
      From-SVN: r131546
      Douglas Gregor committed
    • re PR c++/33964 (internal compiler error: in dependent_type_p, at cp/pt.c:15319 (vararg templates)) · c095a4f8
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
             PR c++/33964
             * pt.c (process_partial_specialization): Don't mark template
             parameters that occur in non-deduced contexts.
             (struct pair_fn_data): Add include_nondeduced_p.
             (for_each_template_parm_r): Only visit non-deduced contexts if
             include_nondeduced_p is set.
             (for_each_template_parm): Added parameter include_nondeduced_p,
             which states whether template parameters found in non-deduced
             contexts should be visited.
             (uses_template_parms): Visit all template parameters, even those
             in non-deduced contexts.
      
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
             PR c++/33964
             * g++.dg/cpp0x/vt-33964.C: New.
             * g++.dg/template/partial5.C: New.
      
      From-SVN: r131544
      Douglas Gregor committed
    • re PR c++/34052 (Trouble with variadic templates as template-template parameter) · 85d85234
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
             PR c++/34052
             * pt.c (check_default_tmpl_args): Check for parameter packs that
             aren't at the end of a primary template.
             (push_template_decl_real): Remove check for parameter packs that
             aren't at the end of a primary template; that now happens in
             check_default_tmpl_args.
             * semantics.c (finish_template_template_parm): Use
             check_default_tmpl_args to check for errors in the template
             parameter list.
      
      2008-01-15  Douglas Gregor  <doug.gregor@gmail.com>
      
             PR c++/34052
             * g++.dg/cpp0x/vt-34052.C: New.
             * g++.dg/template/ttp26.C: New.
      
      From-SVN: r131543
      Douglas Gregor committed
    • list_partition.h: Formatting fixes, inline tweaks. · a4797b34
      2008-01-14  Paolo Carlini  <pcarlini@suse.de>
      
      	* include/parallel/list_partition.h: Formatting fixes, inline tweaks.
      	* include/parallel/numeric: Likewise.
      	* include/parallel/balanced_quicksort.h: Likewise.
      	* include/parallel/unique_copy.h: Likewise.
      	* include/parallel/algobase.h: Likewise.
      	* include/parallel/algo.h: Likewise.
      
      From-SVN: r131542
      Paolo Carlini committed
    • Daily bump. · ac10b0e1
      From-SVN: r131540
      GCC Administrator committed
    • crossconfig.m4: Add missing header checks, C99 TR1 check, and sigsetjmp check. · b9b38620
      2008-01-14  Seongbae Park <seongbae.park@gmail.com>
      
      	* crossconfig.m4: Add missing header checks, C99 TR1 check,
      	and sigsetjmp check.
      
      From-SVN: r131537
      Seongbae Park committed
  3. 14 Jan, 2008 7 commits
  4. 13 Jan, 2008 3 commits
    • re PR libfortran/34746 (wrong formats in libgfortran's runtime_error) · ccacefc7
      2008-01-13  Thomas Koenig  <tkoenig@gcc.gnu.org>
      
      	PR libfortran/34746
      	* m4/iforeach.m4 (name`'rtype_qual`_'atype_code):  Use %ld
      	in printf format for all bounds checking; cast all
      	integer-like arguments to runtime_error() to long int.
      	(`m'name`'rtype_qual`_'atype_code):  Likewise.
      	(`s'name`'rtype_qual`_'atype_code):  Likewise.
      	* m4/ifunction.m4 (name`'rtype_qual`_'atype_code):  Likewise.
      	(`m'name`'rtype_qual`_'atype_code):  Likewise.
      	(`s'name`'rtype_qual`_'atype_code):  Likewise.
      	* generated/all_l16.c: Regenerated.
      	* generated/all_l4.c: Regenerated.
      	* generated/all_l8.c: Regenerated.
      	* generated/any_l16.c: Regenerated.
      	* generated/any_l4.c: Regenerated.
      	* generated/any_l8.c: Regenerated.
      	* generated/count_16_l16.c: Regenerated.
      	* generated/count_16_l4.c: Regenerated.
      	* generated/count_16_l8.c: Regenerated.
      	* generated/count_4_l16.c: Regenerated.
      	* generated/count_4_l4.c: Regenerated.
      	* generated/count_4_l8.c: Regenerated.
      	* generated/count_8_l16.c: Regenerated.
      	* generated/count_8_l4.c: Regenerated.
      	* generated/count_8_l8.c: Regenerated.
      	* generated/maxloc0_16_i1.c: Regenerated.
      	* generated/maxloc0_16_i16.c: Regenerated.
      	* generated/maxloc0_16_i2.c: Regenerated.
      	* generated/maxloc0_16_i4.c: Regenerated.
      	* generated/maxloc0_16_i8.c: Regenerated.
      	* generated/maxloc0_16_r10.c: Regenerated.
      	* generated/maxloc0_16_r16.c: Regenerated.
      	* generated/maxloc0_16_r4.c: Regenerated.
      	* generated/maxloc0_16_r8.c: Regenerated.
      	* generated/maxloc0_4_i1.c: Regenerated.
      	* generated/maxloc0_4_i16.c: Regenerated.
      	* generated/maxloc0_4_i2.c: Regenerated.
      	* generated/maxloc0_4_i4.c: Regenerated.
      	* generated/maxloc0_4_i8.c: Regenerated.
      	* generated/maxloc0_4_r10.c: Regenerated.
      	* generated/maxloc0_4_r16.c: Regenerated.
      	* generated/maxloc0_4_r4.c: Regenerated.
      	* generated/maxloc0_4_r8.c: Regenerated.
      	* generated/maxloc0_8_i1.c: Regenerated.
      	* generated/maxloc0_8_i16.c: Regenerated.
      	* generated/maxloc0_8_i2.c: Regenerated.
      	* generated/maxloc0_8_i4.c: Regenerated.
      	* generated/maxloc0_8_i8.c: Regenerated.
      	* generated/maxloc0_8_r10.c: Regenerated.
      	* generated/maxloc0_8_r16.c: Regenerated.
      	* generated/maxloc0_8_r4.c: Regenerated.
      	* generated/maxloc0_8_r8.c: Regenerated.
      	* generated/maxloc1_16_i1.c: Regenerated.
      	* generated/maxloc1_16_i16.c: Regenerated.
      	* generated/maxloc1_16_i2.c: Regenerated.
      	* generated/maxloc1_16_i4.c: Regenerated.
      	* generated/maxloc1_16_i8.c: Regenerated.
      	* generated/maxloc1_16_r10.c: Regenerated.
      	* generated/maxloc1_16_r16.c: Regenerated.
      	* generated/maxloc1_16_r4.c: Regenerated.
      	* generated/maxloc1_16_r8.c: Regenerated.
      	* generated/maxloc1_4_i1.c: Regenerated.
      	* generated/maxloc1_4_i16.c: Regenerated.
      	* generated/maxloc1_4_i2.c: Regenerated.
      	* generated/maxloc1_4_i4.c: Regenerated.
      	* generated/maxloc1_4_i8.c: Regenerated.
      	* generated/maxloc1_4_r10.c: Regenerated.
      	* generated/maxloc1_4_r16.c: Regenerated.
      	* generated/maxloc1_4_r4.c: Regenerated.
      	* generated/maxloc1_4_r8.c: Regenerated.
      	* generated/maxloc1_8_i1.c: Regenerated.
      	* generated/maxloc1_8_i16.c: Regenerated.
      	* generated/maxloc1_8_i2.c: Regenerated.
      	* generated/maxloc1_8_i4.c: Regenerated.
      	* generated/maxloc1_8_i8.c: Regenerated.
      	* generated/maxloc1_8_r10.c: Regenerated.
      	* generated/maxloc1_8_r16.c: Regenerated.
      	* generated/maxloc1_8_r4.c: Regenerated.
      	* generated/maxloc1_8_r8.c: Regenerated.
      	* generated/maxval_i1.c: Regenerated.
      	* generated/maxval_i16.c: Regenerated.
      	* generated/maxval_i2.c: Regenerated.
      	* generated/maxval_i4.c: Regenerated.
      	* generated/maxval_i8.c: Regenerated.
      	* generated/maxval_r10.c: Regenerated.
      	* generated/maxval_r16.c: Regenerated.
      	* generated/maxval_r4.c: Regenerated.
      	* generated/maxval_r8.c: Regenerated.
      	* generated/minloc0_16_i1.c: Regenerated.
      	* generated/minloc0_16_i16.c: Regenerated.
      	* generated/minloc0_16_i2.c: Regenerated.
      	* generated/minloc0_16_i4.c: Regenerated.
      	* generated/minloc0_16_i8.c: Regenerated.
      	* generated/minloc0_16_r10.c: Regenerated.
      	* generated/minloc0_16_r16.c: Regenerated.
      	* generated/minloc0_16_r4.c: Regenerated.
      	* generated/minloc0_16_r8.c: Regenerated.
      	* generated/minloc0_4_i1.c: Regenerated.
      	* generated/minloc0_4_i16.c: Regenerated.
      	* generated/minloc0_4_i2.c: Regenerated.
      	* generated/minloc0_4_i4.c: Regenerated.
      	* generated/minloc0_4_i8.c: Regenerated.
      	* generated/minloc0_4_r10.c: Regenerated.
      	* generated/minloc0_4_r16.c: Regenerated.
      	* generated/minloc0_4_r4.c: Regenerated.
      	* generated/minloc0_4_r8.c: Regenerated.
      	* generated/minloc0_8_i1.c: Regenerated.
      	* generated/minloc0_8_i16.c: Regenerated.
      	* generated/minloc0_8_i2.c: Regenerated.
      	* generated/minloc0_8_i4.c: Regenerated.
      	* generated/minloc0_8_i8.c: Regenerated.
      	* generated/minloc0_8_r10.c: Regenerated.
      	* generated/minloc0_8_r16.c: Regenerated.
      	* generated/minloc0_8_r4.c: Regenerated.
      	* generated/minloc0_8_r8.c: Regenerated.
      	* generated/minloc1_16_i1.c: Regenerated.
      	* generated/minloc1_16_i16.c: Regenerated.
      	* generated/minloc1_16_i2.c: Regenerated.
      	* generated/minloc1_16_i4.c: Regenerated.
      	* generated/minloc1_16_i8.c: Regenerated.
      	* generated/minloc1_16_r10.c: Regenerated.
      	* generated/minloc1_16_r16.c: Regenerated.
      	* generated/minloc1_16_r4.c: Regenerated.
      	* generated/minloc1_16_r8.c: Regenerated.
      	* generated/minloc1_4_i1.c: Regenerated.
      	* generated/minloc1_4_i16.c: Regenerated.
      	* generated/minloc1_4_i2.c: Regenerated.
      	* generated/minloc1_4_i4.c: Regenerated.
      	* generated/minloc1_4_i8.c: Regenerated.
      	* generated/minloc1_4_r10.c: Regenerated.
      	* generated/minloc1_4_r16.c: Regenerated.
      	* generated/minloc1_4_r4.c: Regenerated.
      	* generated/minloc1_4_r8.c: Regenerated.
      	* generated/minloc1_8_i1.c: Regenerated.
      	* generated/minloc1_8_i16.c: Regenerated.
      	* generated/minloc1_8_i2.c: Regenerated.
      	* generated/minloc1_8_i4.c: Regenerated.
      	* generated/minloc1_8_i8.c: Regenerated.
      	* generated/minloc1_8_r10.c: Regenerated.
      	* generated/minloc1_8_r16.c: Regenerated.
      	* generated/minloc1_8_r4.c: Regenerated.
      	* generated/minloc1_8_r8.c: Regenerated.
      	* generated/minval_i1.c: Regenerated.
      	* generated/minval_i16.c: Regenerated.
      	* generated/minval_i2.c: Regenerated.
      	* generated/minval_i4.c: Regenerated.
      	* generated/minval_i8.c: Regenerated.
      	* generated/minval_r10.c: Regenerated.
      	* generated/minval_r16.c: Regenerated.
      	* generated/minval_r4.c: Regenerated.
      	* generated/minval_r8.c: Regenerated.
      	* generated/product_c10.c: Regenerated.
      	* generated/product_c16.c: Regenerated.
      	* generated/product_c4.c: Regenerated.
      	* generated/product_c8.c: Regenerated.
      	* generated/product_i1.c: Regenerated.
      	* generated/product_i16.c: Regenerated.
      	* generated/product_i2.c: Regenerated.
      	* generated/product_i4.c: Regenerated.
      	* generated/product_i8.c: Regenerated.
      	* generated/product_r10.c: Regenerated.
      	* generated/product_r16.c: Regenerated.
      	* generated/product_r4.c: Regenerated.
      	* generated/product_r8.c: Regenerated.
      	* generated/sum_c10.c: Regenerated.
      	* generated/sum_c16.c: Regenerated.
      	* generated/sum_c4.c: Regenerated.
      	* generated/sum_c8.c: Regenerated.
      	* generated/sum_i1.c: Regenerated.
      	* generated/sum_i16.c: Regenerated.
      	* generated/sum_i2.c: Regenerated.
      	* generated/sum_i4.c: Regenerated.
      	* generated/sum_i8.c: Regenerated.
      	* generated/sum_r10.c: Regenerated.
      	* generated/sum_r16.c: Regenerated.
      	* generated/sum_r4.c: Regenerated.
      	* generated/sum_r8.c: Regenerated.
      
      From-SVN: r131514
      Thomas Koenig committed
    • re PR fortran/34665 (Cannot pass scalar to array argument 'a') · 5ad6345e
      2008-01-13  Tobias Burnus  <burnus@net-b.de>
      
              PR fortran/34665
              * resolve.c (resolve_actual_arglist): For expressions,
              also check for assume-sized arrays.
              * interface.c (compare_parameter): Move F2003 character checks
              here, print error messages here, reject elements of
              assumed-shape array as argument to dummy arrays.
              (compare_actual_formal): Update for the changes above.
      
      2008-01-13  Tobias Burnus  <burnus@net-b.de>
      
              PR fortran/34665
              * gfortran.dg/argument_checking_11.f90: New.
              * gfortran.dg/argument_checking_12.f90: New.
              * gfortran.dg/used_dummy_types_4.f90: Update dg-error.
              * gfortran.dg/c_assoc_2.f03: Update dg-error.
              * gfortran.dg/argument_checking_3.f90: Ditto.
              * gfortran.dg/pointer_intent_2.f90: Ditto.
              * gfortran.dg/import2.f90: Ditto.
              * gfortran.dg/assumed_shape_ranks_1.f90: Ditto.
              * gfortran.dg/implicit_actual.f90: Ditto.
              * gfortran.dg/used_dummy_types_3.f90: Ditto.
              * gfortran.dg/derived_comp_array_ref_6.f90: Ditto.
      
      From-SVN: r131513
      Tobias Burnus committed
    • re PR fortran/34763 (bare END not allowed in an interface block in a module procedure) · 083de129
      2008-01-13  Tobias Burnus  <burnus@net-b.de>
      
              PR fortran/34763
              * decl.c (contained_procedure): Only check directly preceeding
              * state.
      
      2008-01-13  Tobias Burnus  <burnus@net-b.de>
      
              PR fortran/34763
              * gfortran.dg/interface_proc_end.f90: New.
      
      From-SVN: r131512
      Tobias Burnus committed