1*99d23934SValentin Clement! RUN: bbc -emit-fir %s -o - | FileCheck %s 2*99d23934SValentin Clement 3*99d23934SValentin Clement! CHECK-LABEL: func @_QPs() { 4*99d23934SValentin Clementsubroutine s 5*99d23934SValentin Clement ! CHECK-DAG: fir.alloca !fir.box<!fir.heap<i32>> {{{.*}}uniq_name = "{{.*}}Eally"} 6*99d23934SValentin Clement integer, allocatable :: ally 7*99d23934SValentin Clement ! CHECK-DAG: fir.alloca !fir.box<!fir.ptr<i32>> {{{.*}}uniq_name = "{{.*}}Epointy"} 8*99d23934SValentin Clement integer, pointer :: pointy 9*99d23934SValentin Clement ! CHECK-DAG: fir.alloca i32 {{{.*}}fir.target{{.*}}uniq_name = "{{.*}}Ebullseye"} 10*99d23934SValentin Clement integer, target :: bullseye 11*99d23934SValentin Clement ! CHECK: return 12*99d23934SValentin Clementend subroutine s 13