be3b765e2a
remove needless template<> on some function overloads dodge bogus compiler warning from gcc 8.1.0 only stricter typing of expressions in symbols adjust modfile12.f90 expected test results add Unwrap, massage folding a bit Use Unwrap to simplify folding Move KindSelector analysis into expression semantics fix crash checkpoint updates to TypeParamInquiry support of %KIND type parameter inquiry equality testing for expressions checkpoint during PDT implementation reformat checkpoint derived type instantiation checkpoint resolve merge debugging failed tests fix failing resolve37.f90 test all existing tests pass clean up all build warnings fix bug update copyright dates fix copyright dates address review comments review comment merge with master after peeling off changes bugfixing new feature fix warning from old g++s tweaks after merging with latest head more bugfixing making modfile17.f90 test work Make kinds into expressions in symbol table types big refactor for deferring kinds in intrinsic types modfile17.f90 test passes clean up TODOs Simplify types as stored in scopes Test KIND parameter default init expressions, debug them Update copyright dates address comments remove dead line address comments Original-commit: flang-compiler/f18@1f43d0a048 Reviewed-on: https://github.com/flang-compiler/f18/pull/260 Tree-same-pre-rewrite: false
95 lines
3.2 KiB
Fortran
95 lines
3.2 KiB
Fortran
! 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.
|
|
|
|
!DEF: /MainProgram1/jk1 ObjectEntity INTEGER(1)
|
|
integer(kind=1) jk1
|
|
!DEF: /MainProgram1/js1 ObjectEntity INTEGER(1)
|
|
integer*1 js1
|
|
!DEF: /MainProgram1/jk2 ObjectEntity INTEGER(2)
|
|
integer(kind=2) jk2
|
|
!DEF: /MainProgram1/js2 ObjectEntity INTEGER(2)
|
|
integer*2 js2
|
|
!DEF: /MainProgram1/jk4 ObjectEntity INTEGER(4)
|
|
integer(kind=4) jk4
|
|
!DEF: /MainProgram1/js4 ObjectEntity INTEGER(4)
|
|
integer*4 js4
|
|
!DEF: /MainProgram1/jk8 ObjectEntity INTEGER(8)
|
|
integer(kind=8) jk8
|
|
!DEF: /MainProgram1/js8 ObjectEntity INTEGER(8)
|
|
integer*8 js8
|
|
!DEF: /MainProgram1/jk16 ObjectEntity INTEGER(16)
|
|
integer(kind=16) jk16
|
|
!DEF: /MainProgram1/js16 ObjectEntity INTEGER(16)
|
|
integer*16 js16
|
|
!DEF: /MainProgram1/ak2 ObjectEntity REAL(2)
|
|
real(kind=2) ak2
|
|
!DEF: /MainProgram1/as2 ObjectEntity REAL(2)
|
|
real*2 as2
|
|
!DEF: /MainProgram1/ak4 ObjectEntity REAL(4)
|
|
real(kind=4) ak4
|
|
!DEF: /MainProgram1/as4 ObjectEntity REAL(4)
|
|
real*4 as4
|
|
!DEF: /MainProgram1/ak8 ObjectEntity REAL(8)
|
|
real(kind=8) ak8
|
|
!DEF: /MainProgram1/as8 ObjectEntity REAL(8)
|
|
real*8 as8
|
|
!DEF: /MainProgram1/dp ObjectEntity REAL(8)
|
|
double precision dp
|
|
!DEF: /MainProgram1/ak10 ObjectEntity REAL(10)
|
|
real(kind=10) ak10
|
|
!DEF: /MainProgram1/as10 ObjectEntity REAL(10)
|
|
real*10 as10
|
|
!DEF: /MainProgram1/ak16 ObjectEntity REAL(16)
|
|
real(kind=16) ak16
|
|
!DEF: /MainProgram1/as16 ObjectEntity REAL(16)
|
|
real*16 as16
|
|
!DEF: /MainProgram1/zk2 ObjectEntity COMPLEX(2)
|
|
complex(kind=2) zk2
|
|
!DEF: /MainProgram1/zs2 ObjectEntity COMPLEX(2)
|
|
complex*4 zs2
|
|
!DEF: /MainProgram1/zk4 ObjectEntity COMPLEX(4)
|
|
complex(kind=4) zk4
|
|
!DEF: /MainProgram1/zs4 ObjectEntity COMPLEX(4)
|
|
complex*8 zs4
|
|
!DEF: /MainProgram1/zk8 ObjectEntity COMPLEX(8)
|
|
complex(kind=8) zk8
|
|
!DEF: /MainProgram1/zs8 ObjectEntity COMPLEX(8)
|
|
complex*16 zs8
|
|
!DEF: /MainProgram1/zdp ObjectEntity COMPLEX(8)
|
|
double complex zdp
|
|
!DEF: /MainProgram1/zk10 ObjectEntity COMPLEX(10)
|
|
complex(kind=10) zk10
|
|
!DEF: /MainProgram1/zs10 ObjectEntity COMPLEX(10)
|
|
complex*20 zs10
|
|
!DEF: /MainProgram1/zk16 ObjectEntity COMPLEX(16)
|
|
complex(kind=16) zk16
|
|
!DEF: /MainProgram1/zs16 ObjectEntity COMPLEX(16)
|
|
complex*32 zs16
|
|
!DEF: /MainProgram1/lk1 ObjectEntity LOGICAL(1)
|
|
logical(kind=1) lk1
|
|
!DEF: /MainProgram1/ls1 ObjectEntity LOGICAL(1)
|
|
logical*1 ls1
|
|
!DEF: /MainProgram1/lk2 ObjectEntity LOGICAL(2)
|
|
logical(kind=2) lk2
|
|
!DEF: /MainProgram1/ls2 ObjectEntity LOGICAL(2)
|
|
logical*2 ls2
|
|
!DEF: /MainProgram1/lk4 ObjectEntity LOGICAL(4)
|
|
logical(kind=4) lk4
|
|
!DEF: /MainProgram1/ls4 ObjectEntity LOGICAL(4)
|
|
logical*4 ls4
|
|
!DEF: /MainProgram1/lk8 ObjectEntity LOGICAL(8)
|
|
logical(kind=8) lk8
|
|
!DEF: /MainProgram1/ls8 ObjectEntity LOGICAL(8)
|
|
logical*8 ls8
|
|
end program
|