squiid/llvm
1
0
Fork 0
Code Issues Pull requests Activity

[flang] delete two obsolete tests that somehow got committed

Browse source 
Original-commit: flang-compiler/f18@8b6a49416c
Reviewed-on: https://github.com/flang-compiler/f18/pull/531
Tree-same-pre-rewrite: false
This commit is contained in:
peter klausler 2019-06-26 16:34:41 -07:00
parent 737fe29f2b
commit aa67387005
2 changed files with 0 additions and 84 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
flang/test/jean-crash.f90
View file

@ -1,3 +0,0 @@
integer :: j(2)
j = abs([1,2])(1:2)
end

81
flang/test/semantics/pdt99.f90
View file

@ -1,81 +0,0 @@
! Copyright (c) 2018, NVIDIA CORPORATION. All rights reserved.
!
! Licensed under the Apache License, Version 2.0 (the "License");
! you may not use this file except in compliance with the License.
! You may obtain a copy of the License at
!
! http://www.apache.org/licenses/LICENSE-2.0
!
! Unless required by applicable law or agreed to in writing, software
! distributed under the License is distributed on an "AS IS" BASIS,
! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
! See the License for the specific language governing permissions and
! limitations under the License.
module m
type :: pdt(k1,k2,k4,k8,k16)
integer(1), kind :: k1
integer(2), kind :: k2
integer(4), kind :: k4
integer(8), kind :: k8
integer(16), kind :: k16
end type pdt
contains
subroutine s1
type(pdt(k16=116,k8=18,k4=14,k2=12,k1=11)) :: x1
print *, x1%k1
print *, x1%k2
print *, x1%k4
print *, x1%k8
print *, x1%k16
end subroutine s1
subroutine s2
integer(1) :: j1, ja1(1)
integer(2) :: j2, ja2(1)
integer(4) :: j4, ja4(1)
integer(8) :: j8, ja8(1)
integer(16) :: j16, ja16(1)
real(2) :: a2, aa2(1)
real(4) :: a4, aa4(1)
real(8) :: a8, aa8(1)
real(10) :: a10, aa10(1)
real(16) :: a16, aa16(1)
complex(2) :: z2, za2(1)
complex(4) :: z4, za4(1)
complex(8) :: z8, za8(1)
complex(10) :: z10, za10(1)
complex(16) :: z16, za16(1)
character(1,11) :: ch1, cha1(1)
character(2,12) :: ch2, cha2(1)
character(4,14) :: ch4, cha4(1)
logical(1) :: p1, pa1(1)
logical(2) :: p2, pa2(1)
logical(4) :: p4, pa4(1)
logical(8) :: p8, pa8(1)
print *, j1%kind, ja1%kind, ja1(1)%kind
print *, j2%kind, ja2%kind, ja2(1)%kind
print *, j4%kind, ja4%kind, ja4(1)%kind
print *, j8%kind, ja8%kind, ja8(1)%kind
print *, j16%kind, ja16%kind, ja16(1)%kind
print *, a2%kind, aa2%kind, aa2(1)%kind
print *, a4%kind, aa4%kind, aa4(1)%kind
print *, a8%kind, aa8%kind, aa8(1)%kind
print *, a10%kind, aa10%kind, aa10(1)%kind
print *, a16%kind, aa16%kind, aa16(1)%kind
print *, z2%kind, za2%kind, za2(1)%kind
print *, z4%kind, za4%kind, za4(1)%kind
print *, z8%kind, za8%kind, za8(1)%kind
print *, z10%kind, za10%kind, za10(1)%kind
print *, z16%kind, za16%kind, za16(1)%kind
print *, ch1%kind, cha1%kind, cha1(1)%kind
print *, ch2%kind, cha2%kind, cha2(1)%kind
print *, ch4%kind, cha4%kind, cha4(1)%kind
print *, ch1%len, cha1%len, cha1(1)%len
print *, ch2%len, cha2%len, cha2(1)%len
print *, ch4%len, cha4%len, cha4(1)%len
print *, p1%kind, pa1%kind, pa1(1)%kind
print *, p2%kind, pa2%kind, pa2(1)%kind
print *, p4%kind, pa4%kind, pa4(1)%kind
print *, p8%kind, pa8%kind, pa8(1)%kind
end subroutine s2
end module