summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/volatile.f90
diff options
context:
space:
mode:
authorTobias Burnus <burnus@net-b.de>2006-11-07 14:27:53 +0100
committerTobias Burnus <burnus@gcc.gnu.org>2006-11-07 14:27:53 +0100
commit775e6c3a7b9301534d2e6ee3bff8178cde910b49 (patch)
treec63b26fdfe160e12fa7a62ffabe00e56d67e1b2a /gcc/testsuite/gfortran.dg/volatile.f90
parentc927b11c7832ba293da24201305efa7c3dd64cb0 (diff)
downloadgcc-775e6c3a7b9301534d2e6ee3bff8178cde910b49.tar.gz
re PR fortran/29601 (VOLATILE attribute and statement)
fortran/ 2006-11-06 Tobias Burnus <burnus@net-b.de> PR fortran/29601 * symbol.c (check_conflict, gfc_add_volatile): Add volatile support. * decl.c (match_attr_spec, gfc_match_volatile): Add volatile support. * gfortran.h (symbol_attribute): Add volatile_ to struct. * resolve.c (was_declared): Add volatile support. * trans-decl.c (gfc_finish_var_decl): Add volatile support. * match.h: Declare gfc_match_volatile. * parse.c (decode_statement): Recognize volatile. * modules.c (ab_attribute, attr_bits, mio_symbol_attribute): Add volatile support. * dump-parse-tree.c (gfc_show_attr): Add volatile support. testsuite/ 2006-11-06 Tobias Burnus <burnus@net-b.de> PR fortran/29601 * gfortran.dg/volatile.f90: Add. * gfortran.dg/volatile2.f90: Add. * gfortran.dg/volatile3.f90: Add. * gfortran.dg/volatile4.f90: Add. * gfortran.dg/volatile5.f90: Add. * gfortran.dg/volatile6.f90: Add. * gfortran.dg/volatile7.f90: Add. From-SVN: r118545
Diffstat (limited to 'gcc/testsuite/gfortran.dg/volatile.f90')
-rw-r--r--gcc/testsuite/gfortran.dg/volatile.f9011
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/volatile.f90 b/gcc/testsuite/gfortran.dg/volatile.f90
new file mode 100644
index 00000000000..73184250cbe
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/volatile.f90
@@ -0,0 +1,11 @@
+! { dg-do run }
+! Test whether volatile statements and attributes are accepted
+! PR fortran/29601
+program volatile_test
+ implicit none
+ real :: l,m
+ real, volatile :: r = 3.
+ volatile :: l
+ l = 4.0
+ m = 3.0
+end program volatile_test