diff --git a/gcc/cobol/UAT/testsuite.src/syn_copy.at b/gcc/cobol/UAT/testsuite.src/syn_copy.at index 2fe7026f4ddefc41542577bdcc20c970aa6ead49..d29a4d6e8d5781d2e4b9dc980381fe6feb8d7a98 100644 --- a/gcc/cobol/UAT/testsuite.src/syn_copy.at +++ b/gcc/cobol/UAT/testsuite.src/syn_copy.at @@ -285,7 +285,6 @@ AT_CHECK([$COMPILE_ONLY prog.cob], [1], [], [In file included from copy3.CPY:128 copy1.CPY:2:1: error: recursive copybook: 'copy1.CPY' includes itself 2 | COPY copy2. | ^ -copy1.CPY:2:1: error: copybook 'copy1.CPY' not found cobol1: error: failed compiling prog.cob ]) AT_CLEANUP diff --git a/gcc/cobol/copybook.h b/gcc/cobol/copybook.h index b86dd435d6ff4cf1bbf186c98deb1389667fc457..81a2b27eda1e71043972e31419854b676eac5630 100644 --- a/gcc/cobol/copybook.h +++ b/gcc/cobol/copybook.h @@ -183,7 +183,7 @@ class copybook_t { for( auto dir : directories ) { if( true ) { - dbgmsg("copybook_t::open( '%s' OF '%s' %s", + dbgmsg("copybook_t::open '%s' OF '%s' %s", book.source.name, dir? dir: ".", book.literally.source? ", literally" : "" );