pr87117.f90\gfortran.dg\testsuite\gcc - riscv-gnu-toolchain/gcc.git - Unnamed repository; edit this file 'description' to name the repository.

index : riscv-gnu-toolchain/gcc.git

Unnamed repository; edit this file 'description' to name the repository.

root

about summary refs log tree commit diff

path: root/gcc/testsuite/gfortran.dg/pr87117.f90

blob: afca653d08dc516db5b4384c6aae7335c8452276 (plain)

! { dg-do compile }
! { dg-options "-O" }
program p
   real(4) :: a, b
   integer(4) :: n, m
   equivalence (a, n)
   a = 1024.0
   m = 8
   a = 1024.0
   b = set_exponent(a, m)
   n = 8
   a = f(a, n)
   b = set_exponent(a, m)
end