Hi Paul,

With your patch, I see

FAIL: gfortran.dg/iso_c_binding_char_1.f90   -O   (test for errors, line 8)
FAIL: gfortran.dg/iso_c_binding_char_1.f90   -O   (test for errors, line 9)
FAIL: gfortran.dg/iso_c_binding_char_1.f90   -O  (test for excess errors)

This is due to a bad location of the errors:

/opt/gcc/work/gcc/testsuite/gfortran.dg/iso_c_binding_char_1.f90:7:16:

    7 | subroutine bar(c,d) BIND(C)
      |                1
Error: Character argument 'c' at (1) must be length 1 because procedure 'bar' 
is BIND(C)
/opt/gcc/work/gcc/testsuite/gfortran.dg/iso_c_binding_char_1.f90:7:18:

    7 | subroutine bar(c,d) BIND(C)
      |                  1
Error: Character argument 'd' at (1) must be length 1 because procedure 'bar' 
is BIND(C)

TIA

Dominique

Reply via email to