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/deallocate01.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

49 lines
774 B
Fortran
Raw Normal View History

[flang] Update the regression tests to use the new driver when enabled This patch updates most of the remaining regression tests (~400) to use `flang-new` rather then `f18` when `FLANG_BUILD_NEW_DRIVER` is set. This allows us to share more Flang regression tests between `f18` and `flang-new`. A handful of tests have not been ported yet - these are currently either failing or not supported by the new driver. Summary of changes: * RUN lines in tests are updated to use `%flang_fc1` instead of `%f18` * option spellings in tests are updated to forms accepted by both `f18` and `flang-new` * variables in Bash scripts are renamed (e.g. F18 --> FLANG_FC1) The updated tests will now be run with the new driver, `flang-new`, whenever it is enabled (i.e when `FLANG_BUILD_NEW_DRIVER` is set). Although this patch touches many files, vast majority of the changes are automatic: ``` grep -IEZlr "%f18" flang/test/ | xargs -0 -l sed -i 's/%f18/%flang_fc1/g ``` Differential Revision: https://reviews.llvm.org/D100309
2021-04-12 20:27:49 +08:00
! RUN: %S/test_errors.sh %s %t %flang_fc1
[flang] Implement semantic checks for DEALLOCATE statements. The parser checks for duplicate dealloc-opts and expr analysis checks that dealloc-opts are the right type. Original-commit: flang-compiler/f18@1ade7f66177c8d7698b1e9da12904352c520e9d1 Reviewed-on: https://github.com/flang-compiler/f18/pull/401 Tree-same-pre-rewrite: false
2019-04-11 13:17:44 +08:00
! Test that DEALLOCATE works
INTEGER, PARAMETER :: maxvalue=1024
Type dt
Integer :: l = 3
End Type
Type t
Type(dt),Pointer :: p
End Type
Type(t),Allocatable :: x(:)
Type(t),Pointer :: y(:)
Type(t),Pointer :: z
Integer :: s
CHARACTER(256) :: e
Integer, Pointer :: pi
[flang] Fix allocate in deallocate01.f90 test Original-commit: flang-compiler/f18@681e51f50b2c133e03bf174fac7187c3395fbdb1 Tree-same-pre-rewrite: false
2019-04-19 00:18:37 +08:00
Allocate(pi)
[flang] Implement semantic checks for DEALLOCATE statements. The parser checks for duplicate dealloc-opts and expr analysis checks that dealloc-opts are the right type. Original-commit: flang-compiler/f18@1ade7f66177c8d7698b1e9da12904352c520e9d1 Reviewed-on: https://github.com/flang-compiler/f18/pull/401 Tree-same-pre-rewrite: false
2019-04-11 13:17:44 +08:00
Allocate(x(3))
Deallocate(x(2)%p)
Deallocate(y(2)%p)
Deallocate(pi)
Deallocate(z%p)
Deallocate(x%p, stat=s, errmsg=e)
Deallocate(x%p, errmsg=e)
Deallocate(x%p, stat=s)
Deallocate(y%p, stat=s, errmsg=e)
Deallocate(y%p, errmsg=e)
Deallocate(y%p, stat=s)
Deallocate(z, stat=s, errmsg=e)
Deallocate(z, errmsg=e)
Deallocate(z, stat=s)
Deallocate(z, y%p, stat=s, errmsg=e)
Deallocate(z, y%p, errmsg=e)
Deallocate(z, y%p, stat=s)
End Program