maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/test/Semantics/modfile18.f90

27 lines
1.3 KiB
Fortran
Raw Normal View History

[flang] array constructor folding with test Original-commit: flang-compiler/f18@37e7a8e666eae80d4d5485e8c9c59bfb23d08fa9 Reviewed-on: https://github.com/flang-compiler/f18/pull/271 Tree-same-pre-rewrite: false
2019-01-30 02:22:18 +08:00
! Tests folding of array constructors
module m
real, parameter :: a0 = 1.0_8
real, parameter :: a1(2) = [real::2.0, 3.0]
real, parameter :: a2(2) = [4.0, 5.0]
real, parameter :: a3(0) = [real::]
real, parameter :: a4(55) = [real::((1.0*k,k=1,j),j=1,10)]
[flang] Fix errors in tests and predefined modules There were many places in tests and predefined modules that had incorrect code that we weren't detecting until now. Most of the problems were deferred-shape arrays that should have been implied-shape. For example: `real, parameter :: a(:) = [1.0, 2.0]` should have `(*)` rather than `(:)`. There were also a few places with deferred-shape arrays that were not allocatable/pointer or explicit-shape ones that were. Original-commit: flang-compiler/f18@0a959ce1d81dd2e54b72886db699b12c7ad59d88 Reviewed-on: https://github.com/flang-compiler/f18/pull/630
2019-08-07 05:14:33 +08:00
real, parameter :: a5(*) = [6.0, 7.0, 8.0]
[flang] array constructor folding with test Original-commit: flang-compiler/f18@37e7a8e666eae80d4d5485e8c9c59bfb23d08fa9 Reviewed-on: https://github.com/flang-compiler/f18/pull/271 Tree-same-pre-rewrite: false
2019-01-30 02:22:18 +08:00
real, parameter :: a6(2) = [9, 10]
real, parameter :: a7(6) = [([(1.0*k,k=1,j)],j=1,3)]
[flang] Address review comments, fix some f90_correct failures Original-commit: flang-compiler/f18@e468f8cd54f95b83acdcafd3e1909cef98293cd3 Reviewed-on: https://github.com/flang-compiler/f18/pull/271 Tree-same-pre-rewrite: false
2019-02-01 01:58:40 +08:00
real, parameter :: a8(13) = [real::1,2_1,3_2,4_4,5_8,6_16,7._2,8._3,9._4,10._8,11._16,(12.,12.5),(13._8,13.5)]
[flang] array constructor folding with test Original-commit: flang-compiler/f18@37e7a8e666eae80d4d5485e8c9c59bfb23d08fa9 Reviewed-on: https://github.com/flang-compiler/f18/pull/271 Tree-same-pre-rewrite: false
2019-01-30 02:22:18 +08:00
end module m
!Expect: m.mod
!module m
[flang] work in progress checkpoint: changes build, tests all pass many fixes, ready to test more Further CLASS(*) support More fixes for CLASS(*) Hide data members of DynamicType implement PRESENT() intrinsic Original-commit: flang-compiler/f18@044ba12c20f77c130e3c468914ddc2d6c8652c6e Reviewed-on: https://github.com/flang-compiler/f18/pull/466 Tree-same-pre-rewrite: false
2019-05-14 00:33:18 +08:00
!real(4),parameter::a0=1._4
[flang] Make Fortran form of intrinsic types uppercase `DynamicType::AsFortran` was using mixed case for intrinic type names. Make it upper case for consistency with TYPE(...) and CHARACTER when a length is present and other error messages. Original-commit: flang-compiler/f18@e16909d67f16425b267511e5fe33f2ff72f69ee9 Reviewed-on: https://github.com/flang-compiler/f18/pull/928 Tree-same-pre-rewrite: false
2020-01-07 06:04:17 +08:00
!real(4),parameter::a1(1_8:2_8)=[REAL(4)::2._4,3._4]
!real(4),parameter::a2(1_8:2_8)=[REAL(4)::4._4,5._4]
!real(4),parameter::a3(1_8:0_8)=[REAL(4)::]
!real(4),parameter::a4(1_8:55_8)=[REAL(4)::1._4,1._4,2._4,1._4,2._4,3._4,1._4,2._4,3._4,4._4,1._4,2._4,3._4,4._4,5._4,1._4,2._4,3._4,4._4,5._4,6._4,1._4,2._4,3._4,4._4,5._4,6._4,7._4,1._4,2._4,3._4,4._4,5._4,6._4,7._4,8._4,1._4,2._4,3._4,4._4,5._4,6._4,7._4,8._4,9._4,1._4,2._4,3._4,4._4,5._4,6._4,7._4,8._4,9._4,1.e1_4]
!real(4),parameter::a5(1_8:*)=[REAL(4)::6._4,7._4,8._4]
!real(4),parameter::a6(1_8:2_8)=[REAL(4)::9._4,1.e1_4]
!real(4),parameter::a7(1_8:6_8)=[REAL(4)::1._4,1._4,2._4,1._4,2._4,3._4]
!real(4),parameter::a8(1_8:13_8)=[REAL(4)::1._4,2._4,3._4,4._4,5._4,6._4,7._4,8._4,9._4,1.e1_4,1.1e1_4,1.2e1_4,1.3e1_4]
[flang] array constructor folding with test Original-commit: flang-compiler/f18@37e7a8e666eae80d4d5485e8c9c59bfb23d08fa9 Reviewed-on: https://github.com/flang-compiler/f18/pull/271 Tree-same-pre-rewrite: false
2019-01-30 02:22:18 +08:00
!end