From 323b59c470a055476f7b2089175de65036abf33c Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 4 Jul 2005 15:29:08 +0200 Subject: [PATCH] scng.adb: Do not consider Mod used as an attribute to be a keyword 2005-07-04 Robert Dewar * scng.adb: Do not consider Mod used as an attribute to be a keyword From-SVN: r101585 --- gcc/ada/scng.adb | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 163ba170cf7..74fdc14a37a 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -2330,14 +2330,18 @@ package body Scng is -- Ada 2005 (AI-284): Do not apply the style check in case of -- "pragma Interface" + -- Ada 2005 (AI-340): Do not apply the style check in case of + -- MOD attribute. + if Style_Check and then Source (Token_Ptr) <= 'Z' and then (Prev_Token /= Tok_Apostrophe or else - (Token /= Tok_Access - and then Token /= Tok_Delta - and then Token /= Tok_Digits - and then Token /= Tok_Range)) + (Token /= Tok_Access and then + Token /= Tok_Delta and then + Token /= Tok_Digits and then + Token /= Tok_Mod and then + Token /= Tok_Range)) and then (Token /= Tok_Interface or else (Token = Tok_Interface -- 2.30.2