diff options
author | Dan Albert <danalbert@google.com> | 2015-10-13 16:28:19 -0700 |
---|---|---|
committer | Dan Albert <danalbert@google.com> | 2015-10-13 16:28:19 -0700 |
commit | a8c075f72b231c37823661ba0d7d082a21cd39d9 (patch) | |
tree | 395aa3b848d56037292e50466643453485073018 /gcc-4.8/gcc/testsuite/gfortran.dg/used_types_20.f90 | |
parent | 5aff2e0142aca13849b4e51de503e71d5010efa6 (diff) | |
download | toolchain_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.f90 | 48 |
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 |