gcc/testsuite/gfortran.dg/pr77978_1.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=f95" }
   3 subroutine a1
   4   integer, parameter :: i = -666
   5   stop i ! { dg-error "cannot be negative" }
   6 end subroutine a1
   7
   8 subroutine a2
   9   stop -666 ! { dg-error "cannot be negative" }
  10 end subroutine a2
  11
  12 subroutine a3
  13   integer, parameter :: i = 123456
  14   stop i ! { dg-error "too many digits" }
  15 end subroutine a3
  16
  17 subroutine a4
  18   stop 123456 ! { dg-error "too many digits" }
  19 end subroutine a4
  20
  21 !subroutine a5
  22 !  stop merge(667,668,.true.)
  23 !end subroutine a5