Hello,
I have a novice question to dg-error. The testcase if for Fortran, but I
hope to find more dejagnu experts here
I have:
> gcc/testsuite/gfortran.dg> cat -n namelist_internal2.f90 | grep dg-
1 ! { dg-do compile }
2 ! { dg-options "-fall-intrinsics -std=f95" }
16 write(str,nml=nam) ! { dg-error "Internal file at .* is incompatible
with namelist" }
20 read(str,nml=nam) ! { dg-error "Internal file at .* is incompatible
with namelist" }
Now, if I run "make -k check" I get (from gfortran.sum):
PASS: gfortran.dg/namelist_internal2.f90 -O (test for errors, line 16)
FAIL: gfortran.dg/namelist_internal2.f90 -O (test for errors, line 20)
PASS: gfortran.dg/namelist_internal2.f90 -O (test for excess errors)
That is: The first test succeeds, but the second one fails.
In gfortran.log I find the following:
output is:
In file
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90:16
write(str,nml=nam) ! { dg-error "Internal file at .* is incompatible with nam
1
Error: Internal file at (1) is incompatible with namelist
In file
/home/tob/projects/gcc/gcc/testsuite/gfortran.dg/namelist_internal2.f90:20
read(str,nml=nam) ! { dg-error "Internal file at .* is incompatible with name
1
Error: Internal file at (1) is incompatible with namelist
I don't see any reason why it is working with the first one, but failing with
the second one?
Analogously, I get:
PASS: gfortran.dg/write_check2.f90 -O (test for errors, line 5)
FAIL: gfortran.dg/write_check2.f90 -O (test for errors, line 6)
FAIL: gfortran.dg/write_check2.f90 -O (test for errors, line 7)
PASS: gfortran.dg/write_check2.f90 -O (test for excess errors)
That is: First works, others fail. For:
> cat -n write_check2.f90 | grep 'dg-error'
5 write(13,'(a)',advance='y') 'Hello:' ! { dg-error
"ADVANCE=specifier at .* must have value = YES or NO." }
6 write(13,'(a)',advance='yet') 'Hello:' ! { dg-error
"ADVANCE=specifier at .* must have value = YES or NO." }
7 write(13,'(a)',advance='yess') 'Hello:' ! { dg-error
"ADVANCE=specifier at .* must have value = YES or NO." }
And again I have:
output is:
In file /home/tob/projects/gcc/gcc/testsuite/gfortran.dg/write_check2.f90:5
write(13,'(a)',advance='y') 'Hello:' ! { dg-error "ADVANCE=specifier at .*
1
Error: ADVANCE=specifier at (1) must have value = YES or NO.
In file /home/tob/projects/gcc/gcc/testsuite/gfortran.dg/write_check2.f90:6
write(13,'(a)',advance='yet') 'Hello:' ! { dg-error "ADVANCE=specifier at .*
1
Error: ADVANCE=specifier at (1) must have value = YES or NO.
In file /home/tob/projects/gcc/gcc/testsuite/gfortran.dg/write_check2.f90:7
write(13,'(a)',advance='yess') 'Hello:' ! { dg-error "ADVANCE=specifier at .*
1
Error: ADVANCE=specifier at (1) must have value = YES or NO.
Any ideas?
Tobias
PS: Cross link (contains not more information):
http://gcc.gnu.org/ml/gcc-patches/2006-10/msg01337.html
