derek.holloway
7502bf64a4
CodeQL / Analyze (actions) (push) Canceled after 0s
CodeQL / Analyze (python) (push) Canceled after 0s
pre-commit / pre-commit (push) Canceled after 0s
Multi-Arch CI / setup (push) Canceled after 0s
Publish build_manylinux_x86_64 images / publish_build_manylinux_x86_64 (push) Canceled after 0s
Setup (Multi-Arch) / setup (push) Canceled after 0s
Multi-Arch CI / Linux::${{ fromJSON(needs.setup.outputs.linux_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubi10 image / publish_no_rocm_image_ubi10 (push) Canceled after 0s
Multi-Arch CI / Windows::${{ fromJSON(needs.setup.outputs.windows_build_config || '{}').build_variant_label || 'skip' }} (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Multi-Arch CI / Manifest Diff (push) Canceled after 0s
TheRock Manifest Diff Report / Generate Manifest Diff Report (push) Canceled after 0s
Multi-Arch CI / CI Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_ocl_rt images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04_rocgdb images / publish_no_rocm_image_ubuntu24_04_rocgdb (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_ocl_rt (push) Canceled after 0s
Publish TheRock Docker image / build-and-push-image (push) Canceled after 0s
Unit Tests / Unit Tests :: ubuntu-24.04 (push) Canceled after 0s
Unit Tests / Unit Tests :: windows-2022 (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_media (push) Canceled after 0s
Unit Tests / Unit Tests Summary (push) Canceled after 0s
Publish no_rocm_image_ubuntu24_04 images / publish_no_rocm_image_ubuntu24_04_openmpi (push) Canceled after 0s
90 lines
1.7 KiB
Fortran
90 lines
1.7 KiB
Fortran
!RUN: %flang_fc1 -fdebug-unparse %s | FileCheck %s
|
|
program test
|
|
|
|
type t1p
|
|
type(t1p), pointer :: arr(:)
|
|
end type
|
|
type, extends(t1p) :: t1c
|
|
end type
|
|
type t2p
|
|
type(t2p), pointer :: scalar
|
|
end type
|
|
type, extends(t2p) :: t2c
|
|
end type
|
|
type t3p
|
|
type(t3p), allocatable :: arr(:)
|
|
end type
|
|
type, extends(t3p) :: t3c
|
|
end type
|
|
type t4p
|
|
type(t4p), allocatable :: scalar
|
|
end type
|
|
type, extends(t4p) :: t4c
|
|
end type
|
|
type t5p
|
|
class(*), pointer :: arr(:)
|
|
end type
|
|
type, extends(t5p) :: t5c
|
|
end type
|
|
type t6p
|
|
class(*), pointer :: scalar
|
|
end type
|
|
type, extends(t6p) :: t6c
|
|
end type
|
|
type t7p
|
|
class(*), allocatable :: arr(:)
|
|
end type
|
|
type, extends(t7p) :: t7c
|
|
end type
|
|
type t8p
|
|
class(*), allocatable :: scalar
|
|
end type
|
|
type, extends(t8p) :: t8c
|
|
end type
|
|
|
|
type(t1p), target :: t1pt(1)
|
|
type(t1p), pointer :: t1pp(:)
|
|
type(t2p), target :: t2pt
|
|
type(t2p), pointer :: t2pp
|
|
type(t3p) t3pa(1)
|
|
type(t4p) t4ps
|
|
|
|
type(t1c) x1
|
|
type(t2c) x2
|
|
type(t3c) x3
|
|
type(t4c) x4
|
|
type(t5c) x5
|
|
type(t6c) x6
|
|
type(t7c) x7
|
|
type(t8c) x8
|
|
|
|
!CHECK: x1=t1c(arr=t1pt)
|
|
x1 = t1c(t1pt)
|
|
!CHECK: x1=t1c(arr=t1pp)
|
|
x1 = t1c(t1pp)
|
|
!CHECK: x2=t2c(scalar=t2pt)
|
|
x2 = t2c(t2pt)
|
|
!CHECK: x2=t2c(scalar=t2pp)
|
|
x2 = t2c(t2pp)
|
|
!CHECK: x3=t3c(arr=t3pa)
|
|
x3 = t3c(t3pa)
|
|
!CHECK: x4=t4c(scalar=t4ps)
|
|
x4 = t4c(t4ps)
|
|
!CHECK: x4=t4c(scalar=t4p(scalar=NULL()))
|
|
x4 = t4c(t4p())
|
|
!CHECK: x5=t5c(arr=t1pt)
|
|
x5 = t5c(t1pt)
|
|
!CHECK: x5=t5c(arr=t1pp)
|
|
x5 = t5c(t1pp)
|
|
!CHECK: x6=t6c(scalar=t2pt)
|
|
x6 = t6c(t2pt)
|
|
!CHECK: x6=t6c(scalar=t2pp)
|
|
x6 = t6c(t2pp)
|
|
!CHECK: x7=t7c(arr=t3pa)
|
|
x7 = t7c(t3pa)
|
|
!CHECK: x8=t8c(scalar=t4ps)
|
|
x8 = t8c(t4ps)
|
|
!CHECK: x8=t8c(scalar=t4p(scalar=NULL()))
|
|
x8 = t8c(t4p())
|
|
end
|