52711fb8da
Rearrange the contents of __builtin_* module files a little and make sure that semantics implicitly USEs the module __Fortran_builtins before processing each source file. This ensures that the special derived types for TEAM_TYPE, EVENT_TYPE, LOCK_TYPE, &c. exist in the symbol table where they will be available for use in coarray intrinsic function processing. Update IsTeamType() to exploit access to the __Fortran_builtins module rather than applying ad hoc name tests. Move it and some other utilities from Semantics/tools.* to Evaluate/tools.* to make them available to intrinsics processing. Add/correct the intrinsic table definitions for GET_TEAM, TEAM_NUMBER, and THIS_IMAGE to exercise the built-in TEAM_TYPE as an argument and as a result. Add/correct/extend tests accordingly. Differential Revision: https://reviews.llvm.org/D110356
32 lines
970 B
Fortran
32 lines
970 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Check for semantic errors in this_image() function calls
|
|
|
|
subroutine test
|
|
use, intrinsic :: iso_fortran_env, only: team_type
|
|
type(team_type) :: team
|
|
!ERROR: Coarray 'coteam' may not have type TEAM_TYPE, C_PTR, or C_FUNPTR
|
|
type(team_type) :: coteam[*]
|
|
integer :: coscalar[*], coarray(3)[*]
|
|
save :: coteam, coscalar, coarray
|
|
|
|
! correct calls, should produce no errors
|
|
team = get_team()
|
|
print *, this_image()
|
|
print *, this_image(team)
|
|
print *, this_image(coarray)
|
|
print *, this_image(coarray, team)
|
|
print *, this_image(coarray, 1)
|
|
print *, this_image(coarray, 1, team)
|
|
print *, this_image(coscalar)
|
|
print *, this_image(coscalar, team)
|
|
print *, this_image(coscalar, 1)
|
|
print *, this_image(coscalar, 1, team)
|
|
|
|
!ERROR: 'coarray=' argument must have corank > 0 for intrinsic 'this_image'
|
|
print *, this_image(array,1)
|
|
|
|
print *, team_number()
|
|
print *, team_number(team)
|
|
|
|
end subroutine
|