aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.8/gcc/testsuite/gfortran.dg/used_types_20.f90
diff options
context:
space:
mode:
authorDan Albert <danalbert@google.com>2015-10-13 16:28:19 -0700
committerDan Albert <danalbert@google.com>2015-10-13 16:28:19 -0700
commita8c075f72b231c37823661ba0d7d082a21cd39d9 (patch)
tree395aa3b848d56037292e50466643453485073018 /gcc-4.8/gcc/testsuite/gfortran.dg/used_types_20.f90
parent5aff2e0142aca13849b4e51de503e71d5010efa6 (diff)
downloadtoolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.gz
toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.tar.bz2
toolchain_gcc-a8c075f72b231c37823661ba0d7d082a21cd39d9.zip
Remove gcc-4.8.
Change-Id: Iee9c6985c613f58c82e33a91722d371579eb290f
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/used_types_20.f90')
-rw-r--r--gcc-4.8/gcc/testsuite/gfortran.dg/used_types_20.f9048
1 files changed, 0 insertions, 48 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/used_types_20.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/used_types_20.f90
deleted file mode 100644
index 272c0e8aa..000000000
--- a/gcc-4.8/gcc/testsuite/gfortran.dg/used_types_20.f90
+++ /dev/null
@@ -1,48 +0,0 @@
-! { dg-do compile }
-! Tests the fix for PR36366 a regression in which the order of USE statements
-! in 'test2' would cause the result of 'test1' not to have a reference to
-! the derived type 'inner'.
-!
-! Contributed by Jakub Jelinek <jakub@gcc.gnu.org>
-!
-MODULE types
- IMPLICIT NONE
- TYPE :: inner
- INTEGER, POINTER :: i(:)
- END TYPE inner
-
- TYPE :: outer
- TYPE(inner), POINTER :: inr(:)
- END TYPE outer
-END MODULE types
-
-MODULE mymod
- IMPLICIT NONE
-CONTAINS
- FUNCTION test1()
- USE types
- IMPLICIT NONE
- TYPE(outer), POINTER :: test1
- NULLIFY(test1)
- END FUNCTION test1
-END MODULE mymod
-
-MODULE test
- IMPLICIT NONE
-CONTAINS
-
- SUBROUTINE test2(a)
- USE mymod
- USE types
- IMPLICIT NONE
- TYPE(outer), INTENT(INOUT) :: a
- INTEGER :: i
- i = a%inr(1)%i(1)
- END SUBROUTINE test2
-
- SUBROUTINE test3(a)
- USE types
- IMPLICIT NONE
- TYPE(outer), INTENT(IN) :: a
- END SUBROUTINE test3
-END MODULE test