single_char: correct type

Author: scivision

test/string/main_char.f90

@@ -6,17 +6,20 @@ program c
 implicit none
 
 interface
-character(kind=c_char) function three() bind(C)
-import
+character(kind=C_CHAR, len=1) function three() bind(C)
+import C_CHAR
 end function
 end interface
 
-character :: fc
+character(kind=C_CHAR) :: fc
 
 fc = three()
 
 print '(i0,1x,a)', len_trim(fc), fc
 
-if (fc /= "3" .or. len_trim(fc) /= 1) error stop "ERROR: unexpected result from C function"
+if (fc /= C_CHAR_"3" .or. len_trim(fc) /= 1) then
+  write(error_unit, '(a,i0)') "ERROR: unexpected result from C function: " // fc // " length ", len_trim(fc)
+  error stop
+end if
 
 end program