gcc/testsuite/gfortran.dg/reassoc_5.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-O3 -ffast-math -fdump-tree-optimized -fno-protect-parens" }
   3 !
   4 ! PR fortran/35259
   5 ! Test for -fno-protect-parens
   6 !
   7 function test(b)
   8   real a
   9   a = (b + 5.) - 5.
  10   test = a
  11 end
  12
  13 ! Test copied from reassoc_1.f90 which checked for -fprotect-parens (default),
  14 ! and thus for the occurance of "5 - 5".
  15 !
  16 ! We need an explicit +5 and -5, and an intermediate ((bla)) expression
  17 ! (the reassoc barrier).  Make use of "." matching lineends.
  18 ! { dg-final { scan-tree-dump-times "\\\+ 5.*\\\)\\\).* - 5" 0 "optimized" } }
  19 ! { dg-final { cleanup-tree-dump "optimized" } }