fortran-experiments: patch for more error checking

[Steve Kargl]

On Sun, Jan 21, 2007 at 09:02:43PM -0700, Christopher D. Rickett wrote:
> 
> 2007-01-21  Christoper D. Rickett  <crickett@lanl.gov>
> 	* gcc/fortran/symbol.c: Removed javadoc style comment blocks and
> 	converted to GNU style.  Also, put the function type and name on
> 	separate lines.  Removed commented out return in
> 	verify_bind_c_derived_type.
> 	* gcc/fortran/decl.c: Converted javadoc to GNU style for functions
> 	and put the function return type and name on separate lines.
> 	* gcc/fortran/trans-types.c: Ditto on commenting style.
> 	* gcc/fortran/resolve.c: Ditto on commenting style.  Also,
> 	combined two if statements in gfc_iso_c_sub_interface.
> 	* gcc/fortran/match.c: Ditto on commenting style.
> 	* gcc/fortran/trans-decl.c: Ditto on commenting style.
> 	* gcc/fortran/misc.c: Ditto on commenting style.
> 

I applied this patch and new testsuite failures from the new
test programs.   I've extracted info from the gfortran.log.
The first two are the new failures.  The third has been failing
since the fortran-experiments branch was created.

FAIL: gfortran.dg/bind_c_usage_3.f03  -O  (test for excess errors)
Excess errors:
gcc/testsuite/gfortran.dg/bind_c_usage_3.f03:18:
Error: Global name 'test' at (1) is already being used as a MODULE at (2)
gcc/iso_c_binding/gcc/testsuite/gfortran.dg/bind_c_usage_3.f03:2:
Error: Global name 'test' at (1) is already being used as a MODULE at (2)


FAIL: gfortran.dg/c_ptr_tests_5.f03  -O  (test for excess errors)
Excess errors:
gcc/iso_c_binding/gcc/testsuite/gfortran.dg/c_ptr_tests_5.f03:18:
Error: Global name 'c_ptr_tests_5' at (1) is already being used as a MODULE at (2)
gcc/iso_c_binding/gcc/testsuite/gfortran.dg/c_ptr_tests_5.f03:2:
Error: Global name 'c_ptr_tests_5' at (1) is already being used as a MODULE at (2)



FAIL: gfortran.dg/c_kind_params.f90  -O0  (test for excess errors)
Excess errors:
gcc/iso_c_binding/gcc/testsuite/gfortran.dg/c_kind_params.f90:22:
Error: Kind -2 not supported for type INTEGER at (1)

    integer(c_int_fast16_t), value :: my_int_fast16_t



-- 
Steve