From 7af8f00c543646474396940a162866e60bf350de Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sun, 14 Aug 2005 16:15:40 +0000 Subject: [PATCH] re PR fortran/21432 (gfortran does not support printing of namelists) 2005-08-14 Paul Thomas PR fortran/21432. * io.c (match_io): Add code to implement PRINT namelist. 2005-08-14 Paul Thomas PR fortran/21432. * gfortran.dg/namelist_print_1.f: New test of functionality of PRINT namelist. * gfortran.dg/namelist_print_2.f: New test to check that PRINT namelist generates error with -std=f95. From-SVN: r103079 --- gcc/fortran/ChangeLog | 5 ++++ gcc/fortran/io.c | 24 ++++++++++++++++++++ gcc/testsuite/ChangeLog | 8 +++++++ gcc/testsuite/gfortran.dg/namelist_print_1.f | 13 +++++++++++ gcc/testsuite/gfortran.dg/namelist_print_2.f | 13 +++++++++++ 5 files changed, 63 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/namelist_print_1.f create mode 100644 gcc/testsuite/gfortran.dg/namelist_print_2.f diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 158123a2143..152ab005eef 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2005-08-14 Paul Thomas + + PR fortran/21432. + * io.c (match_io): Add code to implement PRINT namelist. + 2005-08-14 Canqun Yang * trans-stmt.c (gfc_trans_arithmetic_if): Optimized in case of equal diff --git a/gcc/fortran/io.c b/gcc/fortran/io.c index 78899aa8453..5b27eadc544 100644 --- a/gcc/fortran/io.c +++ b/gcc/fortran/io.c @@ -2133,6 +2133,30 @@ match_io (io_kind k) if (gfc_match_char ('(') == MATCH_NO) { + /* Treat the non-standard case of PRINT namelist. */ + if (k == M_PRINT && (gfc_match_name (name) == MATCH_YES) + && !gfc_find_symbol (name, NULL, 1, &sym) + && (sym->attr.flavor == FL_NAMELIST)) + { + if (gfc_notify_std (GFC_STD_GNU, "PRINT namelist at " + "%C is an extension") == FAILURE) + { + m = MATCH_ERROR; + goto cleanup; + } + if (gfc_match_eos () == MATCH_NO) + { + gfc_error ("Namelist followed by I/O list at %C"); + m = MATCH_ERROR; + goto cleanup; + } + + dt->io_unit = default_unit (k); + dt->namelist = sym; + goto get_io_list; + } + + if (k == M_WRITE) goto syntax; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 482d19649fb..b11e726d68d 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,11 @@ +2005-08-14 Paul Thomas + + PR fortran/21432. + * gfortran.dg/namelist_print_1.f: New test of functionality of + PRINT namelist. + * gfortran.dg/namelist_print_2.f: New test to check that PRINT + namelist generates error with -std=f95. + 2005-08-14 Ira Rosen PR tree-optimization/23119 diff --git a/gcc/testsuite/gfortran.dg/namelist_print_1.f b/gcc/testsuite/gfortran.dg/namelist_print_1.f new file mode 100644 index 00000000000..dfd2841f022 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_print_1.f @@ -0,0 +1,13 @@ +! Test Non standard PRINT namelist - PR21432 +! +! Contributor Paul Thomas +! +! { dg-do run } +! { dg-options "-std=gnu" } + + real x + namelist /mynml/ x + x = 1 +! ( dg-output "^" } + print mynml ! { dg-output "&MYNML(\n|\r\n|\r) X= 1.000000 , /(\n|\r\n|\r)" } + end diff --git a/gcc/testsuite/gfortran.dg/namelist_print_2.f b/gcc/testsuite/gfortran.dg/namelist_print_2.f new file mode 100644 index 00000000000..c37e3591d17 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/namelist_print_2.f @@ -0,0 +1,13 @@ +! Test Non standard PRINT namelist - PR21432 is +! not accepted by -std=f95 +! +! Contributor Paul Thomas +! +! { dg-do compile } +! { dg-options "-std=f95" } +! + real x + namelist /mynml/ x + x = 1 + print mynml ! { dg-error "PRINT namelist.*extension" "" } + end -- 2.30.2