13 lines · plain
1! RUN: bbc -emit-fir %s -o - | FileCheck %s2 3subroutine ss5()4common /com_dummy1/ x5! CHECK: fir.global common @com_dummy1_6interface7 subroutine com_dummy1()8 end subroutine9end interface10! CHECK: func.func private @_QPcom_dummy1()11print *,fun_sub(com_dummy1)12end13