+AT_SETUP([negative numbers])
+AT_KEYWORDS([scan])
+AT_DATA([input-base], [dnl
+ -0 -1 -01 -001. -1.
+ -123. /* comment 1 */ /* comment 2 */
+ -.1 -0.1 -00.1 -00.10
+ -5e1 -6E-1 -7e+1 -6E+01 -6e-03
+ -.3E1 -.4e-1 -.5E+1 -.6e+01 -.7E-03
+ -1.23e1 -45.6E-1 -78.9e+1 -99.9E+01 -11.2e-03
+ -/**/1
+ -. -1e -e1 -1e+ -1e- -1.
+])
+AT_DATA([expout-base0], [dnl
+NEG_NUM
+NEG_NUM -1
+NEG_NUM -1
+NEG_NUM -1
+NEG_NUM -1
+ENDCMD
+NEG_NUM -123
+ENDCMD
+NEG_NUM -0.1
+NEG_NUM -0.1
+NEG_NUM -0.1
+NEG_NUM -0.1
+NEG_NUM -50
+NEG_NUM -0.6
+NEG_NUM -70
+NEG_NUM -60
+NEG_NUM -0.006
+NEG_NUM -3
+NEG_NUM -0.04
+NEG_NUM -5
+NEG_NUM -6
+NEG_NUM -0.0007
+NEG_NUM -12.3
+NEG_NUM -4.56
+NEG_NUM -789
+NEG_NUM -999
+NEG_NUM -0.0112
+NEG_NUM -1
+DASH
+MACRO_PUNCT "."
+STOP "Missing exponent following `-1e'."
+DASH
+ID "e1"
+STOP "Missing exponent following `-1e+'."
+STOP "Missing exponent following `-1e-'."
+NEG_NUM -1
+ENDCMD
+STOP
+])
+
+cp input-base input
+cp expout-base0 expout-base
+PSPP_CHECK_SCAN([-i])
+
+sed 's/ -/ - /g' < input-base > input
+sed 's/following `-/following `- /' < expout-base0 > expout-base
+PSPP_CHECK_SCAN([-i])
+AT_CLEANUP
+\f