[Patch, fortran] PR14067, PR16943, PR20838 and PR27655 - miscellaneous small fixes

[Paul Thomas <paulthomas2 at wanadoo dot fr>]

:ADDPATCH fortran:

Please accept four patches for the price of one.  They are all small and 
are self explanatory.  The last has been seen before and was agreed, in 
principle, with Steve Kargl, off list.  I relented and provided a 
testcase for it though!

Briefly:

PR14067 - At present an overlong string in an initialization expression 
is quietly truncated.  This patch adds a warning that this is being done.
PR16943 - This permits a common extension, for -std=gnu;
            integer function foobar () result (n)
            integer :: n
PR20838 - At present, gfortran allows a named and labelled 
do-block-construct to have and end-do without a name.  For obvious 
reasons, this is subject to a constraint, which insists on a matching 
name.  Stephen Bosscher posted a patch for this, which was OK but I 
removed the -pedantic requirement.
PR27655 - The patch throws an error if the pointer actual argument to 
ASSOCIATED is NULL.

'Twixt the testcases and the ChangeLog entries, these patches should be 
comprehensible.

Regtested on FC5/Athlon.  OK for patch and 4.1?

Paul


2006-05-26  Paul Thomas  <pault@gcc.gnu.org>

   PR fortran/14067
   * data.c (create_character_intializer): Add warning message
   for truncated string.

   PR fortran/16943
   * symbol.c : Include flags.h.
   (gfc_add_type): If a procedure and types are the same do not
   throw an error unless standard is less than gnu or pedantic.

   PR fortran/20838
   * parse.c (parse_do_block): Error if named block do construct
   does not have a named enddo.

   PR fortran/27655
   * check.c (gfc_check_associated): Pick up EXPR_NULL for pointer
   as well as target and put error return at end of function.

2006-05-26  Paul Thomas  <pault@gcc.gnu.org>

   PR fortran/14067
   * gfortran.dg/data_char_1.f90: Add messages for truncated
   strings.

   PR fortran/16943
   * gfortran.dg/func_decl_2.f90: New test.

   PR fortran/20838
   * gfortran.dg/do_2.f90: New test.

   PR fortran/27655
   * gfortran.dg/associated_3.f90: New test.