!
! 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 -r8 -S -emit-llvm %s -o - 2>&1 | FileCheck %s
! RUN: %flang -fdefault-real-8 -S -emit-llvm %s -o - 2>&1 | FileCheck %s

program i
  real :: x ! CHECK: alloca double
  x = 3.3
end program