File tree Expand file tree Collapse file tree 2 files changed +19
-1
lines changed Expand file tree Collapse file tree 2 files changed +19
-1
lines changed Original file line number Diff line number Diff line change @@ -42,9 +42,14 @@ namespace Fortran::tools {
42
42
targetCharacteristics.set_hasSubnormalFlushingControl (/* kind=*/ 8 );
43
43
}
44
44
45
- if (targetTriple.getArch () != llvm::Triple::ArchType::x86_64) {
45
+ switch (targetTriple.getArch ()) {
46
+ case llvm::Triple::ArchType::amdgcn:
47
+ case llvm::Triple::ArchType::x86_64:
48
+ break ;
49
+ default :
46
50
targetCharacteristics.DisableType (
47
51
Fortran::common::TypeCategory::Real, /* kind=*/ 10 );
52
+ break ;
48
53
}
49
54
50
55
// Check for kind=16 support. See flang/runtime/Float128Math/math-entries.h.
Original file line number Diff line number Diff line change
1
+ ! REQUIRES: amdgpu-registered-target
2
+
3
+ ! RUN: %flang_fc1 -emit-hlfir -fopenmp -triple amdgcn -fopenmp -fopenmp-is-target-device -o - %s | FileCheck %s
4
+
5
+ ! CHECK: hlfir.declare %0 {uniq_name = "_QFEx"} : (!fir.ref<f80>) -> (!fir.ref<f80>, !fir.ref<f80>)
6
+
7
+ program p
8
+ real (10 ) :: x
9
+ ! $omp target
10
+ continue
11
+ ! $omp end target
12
+ end
13
+
You can’t perform that action at this time.
0 commit comments