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
