[Bug fortran/31831] New: FAIL: gfortran.dg/assumed_charlen_function_5.f90 -O (test for excess errors)

["danglin at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>]

Executing on host: /test/gnu/gcc/objdir/gcc/testsuite/gfortran/../../gfortran
-B
/test/gnu/gcc/objdir/gcc/testsuite/gfortran/../../
/test/gnu/gcc/gcc/gcc/testsui
te/gfortran.dg/assumed_charlen_function_5.f90   -O   -pedantic-errors -S  -o
ass
umed_charlen_function_5.s    (timeout = 300)
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:8.30:

character(*) function charrext (n)  ! { dg-warning "is obsolescent in fortran 9
                             1
Warning: CHARACTER(*) function 'charrext' at (1) is obsolescent in fortran 95
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:26.33
:

  integer(4) function ctest(charr, i)  ! { dg-warning "is obsolescent in fortra
                                1
Warning: CHARACTER(*) function 'charr' at (1) is obsolescent in fortran 95
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:22.14
:

    m = test (charrext, j)
             1
Error: Type/rank mismatch in argument 'charr' at (1)
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:23.15
:

    m = ctest (charrext, 27 - j)
              1
Error: Type/rank mismatch in argument 'charr' at (1)
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:34.30
:

integer(4) function test(charr, i)  ! { dg-warning "is obsolescent in fortran 9
                             1
Warning: CHARACTER(*) function 'charr' at (1) is obsolescent in fortran 95
compiler exited with status 1
output is:
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:8.30:

character(*) function charrext (n)  ! { dg-warning "is obsolescent in fortran 9
                             1
Warning: CHARACTER(*) function 'charrext' at (1) is obsolescent in fortran 95
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:26.33
:

  integer(4) function ctest(charr, i)  ! { dg-warning "is obsolescent in fortra
                                1
Warning: CHARACTER(*) function 'charr' at (1) is obsolescent in fortran 95
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:22.14
:

    m = test (charrext, j)
             1
Error: Type/rank mismatch in argument 'charr' at (1)
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:23.15
:

    m = ctest (charrext, 27 - j)
              1
Error: Type/rank mismatch in argument 'charr' at (1)
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:34.30
:

integer(4) function test(charr, i)  ! { dg-warning "is obsolescent in fortran 9
                             1
Warning: CHARACTER(*) function 'charr' at (1) is obsolescent in fortran 95

PASS: gfortran.dg/assumed_charlen_function_5.f90  -O   (test for warnings, line
8)
PASS: gfortran.dg/assumed_charlen_function_5.f90  -O   (test for warnings, line
26)
PASS: gfortran.dg/assumed_charlen_function_5.f90  -O   (test for warnings, line
34)
FAIL: gfortran.dg/assumed_charlen_function_5.f90  -O  (test for excess errors)
Excess errors:
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:22:
E
rror: Type/rank mismatch in argument 'charr' at (1)
/test/gnu/gcc/gcc/gcc/testsuite/gfortran.dg/assumed_charlen_function_5.f90:23:
E
rror: Type/rank mismatch in argument 'charr' at (1)

The "Type/rank mismatch in argument" error is causing several other tests to
fail
as well.


-- 
           Summary: FAIL: gfortran.dg/assumed_charlen_function_5.f90  -O
                    (test for excess errors)
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: danglin at gcc dot gnu dot org
 GCC build triplet: hppa64-hp-hpux11.11
  GCC host triplet: hppa64-hp-hpux11.11
GCC target triplet: hppa64-hp-hpux11.11


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31831