!
! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
! See https://llvm.org/LICENSE.txt for license information.
! SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!

! RUN: %flang -S -emit-llvm %s -o - 2>&1 | FileCheck %s
! RUN: %flang -fno-default-real-8 -S -emit-llvm %s -o - 2>&1 | FileCheck %s

program i
  real :: x ! CHECK: alloca float
  x = 3.5
end program