e4334afca0
In relation to the approval and merge of the https://github.com/llvm/llvm-project/pull/76088 specification about multi-image features in Flang. Here is a PR on adding support for `THIS_IMAGE` and `NUM_IMAGES` in conformance with the PRIF specification. For `THIS_IMAGE`, the lowering to the subroutine containing the coarray argument is not present in this PR, and will be in a future one.
15 lines
314 B
Fortran
15 lines
314 B
Fortran
! RUN: %flang_fc1 -emit-hlfir -fcoarray %s -o - | FileCheck %s
|
|
|
|
program test
|
|
use iso_fortran_env
|
|
integer :: i
|
|
type(team_type) :: team
|
|
|
|
! CHECK: fir.call @_QMprifPprif_this_image_no_coarray
|
|
i = this_image()
|
|
|
|
! CHECK: fir.call @_QMprifPprif_this_image_no_coarray
|
|
i = this_image(TEAM=team)
|
|
|
|
end program
|