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/alloc_comp_default_init_1.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/alloc_comp_default_init_1.f90')
| -rw-r--r-- | gcc-4.8/gcc/testsuite/gfortran.dg/alloc_comp_default_init_1.f90 | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/alloc_comp_default_init_1.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/alloc_comp_default_init_1.f90 deleted file mode 100644 index 48947cd2e..000000000 --- a/gcc-4.8/gcc/testsuite/gfortran.dg/alloc_comp_default_init_1.f90 +++ /dev/null @@ -1,84 +0,0 @@ -! { dg-do run } -! Checks the fixes for PR34681 and PR34704, in which various mixtures
-! of default initializer and allocatable array were not being handled
-! correctly for derived types with allocatable components. -! -! Contributed by Paolo Giannozzi <p.giannozzi@fisica.uniud.it> -! -program boh - integer :: c1, c2, c3, c4, c5
- !
- call mah (0, c1) ! These calls deal with PR34681
- call mah (1, c2)
- call mah (2, c3)
- ! - if (c1 /= c2) call abort - if (c1 /= c3) call abort
- !
- call mah0 (c4) ! These calls deal with PR34704
- call mah1 (c5)
- ! - if (c4 /= c5) call abort - !
-end program boh
-!
-subroutine mah (i, c)
- !
- integer, intent(in) :: i
- integer, intent(OUT) :: c
- !
- type mix_type
- real(8), allocatable :: a(:)
- complex(8), allocatable :: b(:)
- end type mix_type
- type(mix_type), allocatable, save :: t(:)
- integer :: j, n=1024
- !
- if (i==0) then
- allocate (t(1))
- allocate (t(1)%a(n))
- allocate (t(1)%b(n))
- do j=1,n
- t(1)%a(j) = j
- t(1)%b(j) = n-j
- end do
- end if
- c = sum( t(1)%a(:) ) + sum( t(1)%b(:) )
- if ( i==2) then
- deallocate (t(1)%b)
- deallocate (t(1)%a)
- deallocate (t)
- end if
-end subroutine mah - -subroutine mah0 (c)
- !
- integer, intent(OUT) :: c
- type mix_type
- real(8), allocatable :: a(:)
- integer :: n=1023
- end type mix_type
- type(mix_type) :: t
- !
- allocate(t%a(1))
- t%a=3.1415926
- c = t%n
- deallocate(t%a)
- !
-end subroutine mah0
-!
-subroutine mah1 (c)
- !
- integer, intent(OUT) :: c
- type mix_type
- real(8), allocatable :: a(:)
- integer :: n=1023
- end type mix_type
- type(mix_type), save :: t
- !
- allocate(t%a(1))
- t%a=3.1415926
- c = t%n
- deallocate(t%a)
- !
-end subroutine mah1
|