* g77.f-torture/compile/20000412-1.f: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@33120 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 22501c2..3c3fd21 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,6 @@
 Wed Apr 12 10:25:08 2000  Jeffrey A Law  (law@cygnus.com)
 
+       * g77.f-torture/compile/20000412-1.f: New test.
        * gcc.c-torture/execute/20000412-4.c: New test.
        * gcc.c-torture/compile/20000412-2.c: New test.
        * gcc.c-torture/execute/20000412-3.c: New test.

diff --git a/gcc/testsuite/g77.f-torture/compile/20000412-1.f b/gcc/testsuite/g77.f-torture/compile/20000412-1.f
new file mode 100644 (file)
index 0000000..e4c6511
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/20000412-1.f
@@ -0,0 +1,5 @@
+      subroutine aap(k)
+      equivalence (i,r)
+      i = k
+      print*,r
+      end