fortran-src-0.3.0: Parser and anlyses for Fortran standards 66, 77, 90 and 95.

Safe HaskellNone
LanguageHaskell2010

Language.Fortran.Lexer.FreeForm

Documentation

alex_tab_size :: Int Source #

alex_base :: AlexAddr Source #

alex_table :: AlexAddr Source #

alex_check :: AlexAddr Source #

alex_deflt :: AlexAddr Source #

alex_accept :: Array Int (AlexAcc User) Source #

alex_actions :: Array Int (LexAction (Maybe Token)) Source #

alexIndexInt32OffAddr :: AlexAddr -> Int# -> Int# Source #

quickIndex :: Array Int (AlexAcc User) -> Int -> AlexAcc User Source #

data AlexReturn a Source #

Constructors

AlexEOF 
AlexError !AlexInput 
AlexSkip !AlexInput !Int 
AlexToken !AlexInput !Int a 

alexScan :: AlexInput -> Int -> AlexReturn (LexAction (Maybe Token)) Source #

alex_scan_tkn :: User -> AlexInput -> Int# -> AlexInput -> Int# -> AlexLastAcc -> (AlexLastAcc, AlexInput) Source #

data AlexLastAcc Source #

Constructors

AlexNone 
AlexLastAcc !Int !AlexInput !Int 
AlexLastSkip !AlexInput !Int 

data AlexAcc user Source #

Constructors

AlexAccNone 
AlexAcc Int 
AlexAccSkip 
AlexAccPred Int (AlexAccPred user) (AlexAcc user) 
AlexAccSkipPred (AlexAccPred user) (AlexAcc user) 

type AlexAccPred user = user -> AlexInput -> Int -> AlexInput -> Bool Source #

alexAndPred :: (t1 -> t2 -> t3 -> t4 -> Bool) -> (t1 -> t2 -> t3 -> t4 -> Bool) -> t1 -> t2 -> t3 -> t4 -> Bool Source #

alexPrevCharIs :: Char -> p1 -> AlexInput -> p2 -> p3 -> Bool Source #

alexPrevCharMatches :: (Char -> t) -> p1 -> AlexInput -> p2 -> p3 -> t Source #

alexPrevCharIsOneOf :: Array Char e -> p1 -> AlexInput -> p2 -> p3 -> e Source #

alexRightContext :: Int -> AlexAccPred User Source #

formatP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

followsDoP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

followsColonP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

labelledWhereP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

selectorP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

ifConditionEndP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

opP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

partOfExpOrPointerAssignmentP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

precedesDoubleColon :: AlexInput -> Bool Source #

parenLevel :: [Token] -> Int Source #

allocateP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

attributeP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

bindP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

constructNameP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

genericSpecP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

notDefinedOperP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

typeSpecP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

resultP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

notPrecedingDotP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

followsIntentP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

followsProcedureP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

followsBindP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

followsCP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

followsFlushP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

useStP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

caseStP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

assignStP :: User -> AlexInput -> Int -> AlexInput -> Bool Source #

prevTokenConstr :: AlexInput -> Maybe Constr Source #

nextTokenConstr :: User -> AlexInput -> Maybe Constr Source #

seenConstr :: Constr -> AlexInput -> Bool Source #

fillConstr :: (a -> Token) -> Constr Source #

adjustComment :: LexAction (Maybe Token) -> LexAction (Maybe Token) Source #

leftPar :: LexAction (Maybe Token) Source #

comma :: LexAction (Maybe Token) Source #

slashOrDivision :: LexAction (Maybe Token) Source #

addSpan :: (SrcSpan -> Token) -> LexAction (Maybe Token) Source #

addSpanAndMatch :: (SrcSpan -> String -> Token) -> LexAction (Maybe Token) Source #

getLexeme :: LexAction Lexeme Source #

putLexeme :: Lexeme -> LexAction () Source #

resetLexeme :: LexAction () Source #

getMatch :: LexAction String Source #

putMatch :: String -> LexAction () Source #

updatePreviousToken :: Maybe Token -> LexAction () Source #

addToPreviousTokensInLine :: Token -> LexAction () Source #

checkPreviousTokensInLine :: (Token -> Bool) -> AlexInput -> Bool Source #

getLexemeSpan :: LexAction SrcSpan Source #

lexCharacter :: LexAction (Maybe Token) Source #

toSC :: Int -> LexAction () Source #

stabiliseStartCode :: LexAction () Source #

normaliseStartCode :: LexAction () Source #

invalidPosition :: Position Source #

isValidPosition :: Position -> Bool Source #

data Lexeme Source #

Constructors

Lexeme 

Fields

Instances
Show Lexeme Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

showsPrec :: Int -> Lexeme -> ShowS #

show :: Lexeme -> String #

showList :: [Lexeme] -> ShowS #

Spanned Lexeme Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

getSpan :: Lexeme -> SrcSpan Source #

setSpan :: SrcSpan -> Lexeme -> Lexeme Source #

initLexeme :: Lexeme Source #

data StartCodeStatus Source #

Constructors

Return 
Stable 
Instances
Show StartCodeStatus Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

showsPrec :: Int -> StartCodeStatus -> ShowS #

show :: StartCodeStatus -> String #

showList :: [StartCodeStatus] -> ShowS #

data StartCode Source #

Constructors

StartCode 

Fields

Instances
Show StartCode Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

showsPrec :: Int -> StartCode -> ShowS #

show :: StartCode -> String #

showList :: [StartCode] -> ShowS #

data AlexInput Source #

Constructors

AlexInput 

Fields

Instances
Show AlexInput Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

showsPrec :: Int -> AlexInput -> ShowS #

show :: AlexInput -> String #

showList :: [AlexInput] -> ShowS #

Loc AlexInput Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

getPos :: AlexInput -> Position Source #

LastToken AlexInput Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

getLastToken :: AlexInput -> Maybe Token Source #

type LexAction a = Parse AlexInput Token a Source #

vanillaAlexInput :: AlexInput Source #

updateLexeme :: Char -> Position -> AlexInput -> AlexInput Source #

data User Source #

Constructors

User FortranVersion ParanthesesCount 

data Move Source #

Constructors

Continuation 
Char 
Newline 

alexGetByte :: AlexInput -> Maybe (Word8, AlexInput) Source #

alexInputPrevChar :: AlexInput -> Char Source #

currentChar :: AlexInput -> Char Source #

advanceWithoutContinuation :: AlexInput -> Maybe AlexInput Source #

isContinuation :: AlexInput -> Bool Source #

skipContinuation :: AlexInput -> AlexInput Source #

skipCComment :: LexAction (Maybe Token) Source #

advance :: Move -> Position -> Position Source #

lexHash :: LexAction (Maybe Token) Source #

lexer :: (Token -> LexAction a) -> LexAction a Source #

lexer' :: LexAction Token Source #

alexScanUser :: User -> AlexInput -> Int -> AlexReturn (LexAction (Maybe Token)) Source #

data Token Source #

Constructors

TId SrcSpan String 
TComment SrcSpan String 
TString SrcSpan String 
TIntegerLiteral SrcSpan String 
TRealLiteral SrcSpan String 
TBozLiteral SrcSpan String 
TComma SrcSpan 
TComma2 SrcSpan 
TSemiColon SrcSpan 
TColon SrcSpan 
TDoubleColon SrcSpan 
TOpAssign SrcSpan 
TArrow SrcSpan 
TPercent SrcSpan 
TLeftPar SrcSpan 
TLeftPar2 SrcSpan 
TRightPar SrcSpan 
TLeftInitPar SrcSpan 
TRightInitPar SrcSpan 
TOpCustom SrcSpan String 
TOpExp SrcSpan 
TOpPlus SrcSpan 
TOpMinus SrcSpan 
TStar SrcSpan 
TOpDivision SrcSpan 
TSlash SrcSpan 
TOpOr SrcSpan 
TOpAnd SrcSpan 
TOpNot SrcSpan 
TOpEquivalent SrcSpan 
TOpNotEquivalent SrcSpan 
TOpLT SrcSpan 
TOpLE SrcSpan 
TOpEQ SrcSpan 
TOpNE SrcSpan 
TOpGT SrcSpan 
TOpGE SrcSpan 
TLogicalLiteral SrcSpan String 
TProgram SrcSpan 
TEndProgram SrcSpan 
TFunction SrcSpan 
TEndFunction SrcSpan 
TResult SrcSpan 
TPure SrcSpan 
TElemental SrcSpan 
TRecursive SrcSpan 
TSubroutine SrcSpan 
TEndSubroutine SrcSpan 
TBlockData SrcSpan 
TEndBlockData SrcSpan 
TModule SrcSpan 
TEndModule SrcSpan 
TContains SrcSpan 
TUse SrcSpan 
TOnly SrcSpan 
TImport SrcSpan 
TAbstract SrcSpan 
TInterface SrcSpan 
TEndInterface SrcSpan 
TProcedure SrcSpan 
TModuleProcedure SrcSpan 
TAssignment SrcSpan 
TOperator SrcSpan 
TCall SrcSpan 
TReturn SrcSpan 
TEntry SrcSpan 
TInclude SrcSpan 
TBind SrcSpan 
TC SrcSpan 
TName SrcSpan 
TAllocatable SrcSpan 
TAsynchronous SrcSpan 
TDimension SrcSpan 
TExternal SrcSpan 
TIntent SrcSpan 
TIntrinsic SrcSpan 
TNonIntrinsic SrcSpan 
TOptional SrcSpan 
TParameter SrcSpan 
TPointer SrcSpan 
TPrivate SrcSpan 
TPublic SrcSpan 
TProtected SrcSpan 
TSave SrcSpan 
TTarget SrcSpan 
TValue SrcSpan 
TVolatile SrcSpan 
TIn SrcSpan 
TOut SrcSpan 
TInOut SrcSpan 
TData SrcSpan 
TNamelist SrcSpan 
TImplicit SrcSpan 
TEquivalence SrcSpan 
TCommon SrcSpan 
TFormat SrcSpan 
TBlob SrcSpan String 
TAllocate SrcSpan 
TStat SrcSpan 
TErrMsg SrcSpan 
TSource SrcSpan 
TDeallocate SrcSpan 
TNullify SrcSpan 
TNone SrcSpan 
TGoto SrcSpan 
TAssign SrcSpan 
TTo SrcSpan 
TContinue SrcSpan 
TStop SrcSpan 
TPause SrcSpan 
TDo SrcSpan 
TEndDo SrcSpan 
TWhile SrcSpan 
TIf SrcSpan 
TThen SrcSpan 
TElse SrcSpan 
TElsif SrcSpan 
TEndIf SrcSpan 
TCase SrcSpan 
TSelectCase SrcSpan 
TEndSelect SrcSpan 
TDefault SrcSpan 
TCycle SrcSpan 
TExit SrcSpan 
TForall SrcSpan 
TEndForall SrcSpan 
TWhere SrcSpan 
TElsewhere SrcSpan 
TEndWhere SrcSpan 
TType SrcSpan 
TEndType SrcSpan 
TSequence SrcSpan 
TClass SrcSpan 
TEnum SrcSpan 
TEnumerator SrcSpan 
TEndEnum SrcSpan 
TKind SrcSpan 
TLen SrcSpan 
TInteger SrcSpan 
TReal SrcSpan 
TDoublePrecision SrcSpan 
TLogical SrcSpan 
TCharacter SrcSpan 
TComplex SrcSpan 
TOpen SrcSpan 
TClose SrcSpan 
TRead SrcSpan 
TWrite SrcSpan 
TPrint SrcSpan 
TBackspace SrcSpan 
TRewind SrcSpan 
TInquire SrcSpan 
TEndfile SrcSpan 
TEnd SrcSpan 
TNewline SrcSpan 
TEOF SrcSpan 
TFlush SrcSpan 
TUnit SrcSpan 
TIOStat SrcSpan 
TIOMsg SrcSpan 
TErr SrcSpan 
Instances
Eq Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

(==) :: Token -> Token -> Bool #

(/=) :: Token -> Token -> Bool #

Data Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> Token -> c Token #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c Token #

toConstr :: Token -> Constr #

dataTypeOf :: Token -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c Token) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c Token) #

gmapT :: (forall b. Data b => b -> b) -> Token -> Token #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> Token -> r #

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> Token -> r #

gmapQ :: (forall d. Data d => d -> u) -> Token -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> Token -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> Token -> m Token #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> Token -> m Token #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> Token -> m Token #

Show Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

showsPrec :: Int -> Token -> ShowS #

show :: Token -> String #

showList :: [Token] -> ShowS #

Generic Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Associated Types

type Rep Token :: Type -> Type #

Methods

from :: Token -> Rep Token x #

to :: Rep Token x -> Token #

FirstParameter Token SrcSpan => Spanned Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

getSpan :: Token -> SrcSpan Source #

setSpan :: SrcSpan -> Token -> Token Source #

Tok Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

eofToken :: Token -> Bool Source #

SpecifiesType Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

isTypeSpec :: Token -> Bool Source #

FirstParameter Token SrcSpan Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

getFirstParameter :: Token -> SrcSpan Source #

setFirstParameter :: SrcSpan -> Token -> Token Source #

LastToken AlexInput Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

getLastToken :: AlexInput -> Maybe Token Source #

SpecifiesType [Token] Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

isTypeSpec :: [Token] -> Bool Source #

type Rep Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

type Rep Token = D1 (MetaData "Token" "Language.Fortran.Lexer.FreeForm" "fortran-src-0.3.0-HYtHVMLWYXtCtJd9jdxIfb" False) (((((((C1 (MetaCons "TId" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String)) :+: C1 (MetaCons "TComment" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String))) :+: (C1 (MetaCons "TString" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String)) :+: (C1 (MetaCons "TIntegerLiteral" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String)) :+: C1 (MetaCons "TRealLiteral" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String))))) :+: ((C1 (MetaCons "TBozLiteral" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String)) :+: C1 (MetaCons "TComma" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TComma2" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TSemiColon" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TColon" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))) :+: (((C1 (MetaCons "TDoubleColon" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpAssign" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TArrow" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TPercent" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TLeftPar" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TLeftPar2" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TRightPar" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TLeftInitPar" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TRightInitPar" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpCustom" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String))))))) :+: ((((C1 (MetaCons "TOpExp" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpPlus" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TOpMinus" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TStar" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpDivision" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TSlash" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpOr" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TOpAnd" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TOpNot" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpEquivalent" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))) :+: (((C1 (MetaCons "TOpNotEquivalent" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpLT" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TOpLE" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TOpEQ" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpNE" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TOpGT" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpGE" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TLogicalLiteral" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String)) :+: (C1 (MetaCons "TProgram" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TEndProgram" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))))) :+: (((((C1 (MetaCons "TFunction" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TEndFunction" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TResult" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TPure" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TElemental" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TRecursive" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TSubroutine" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TEndSubroutine" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TBlockData" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TEndBlockData" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))) :+: (((C1 (MetaCons "TModule" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TEndModule" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TContains" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TUse" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOnly" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TImport" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TAbstract" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TInterface" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TEndInterface" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TProcedure" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))))) :+: ((((C1 (MetaCons "TModuleProcedure" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TAssignment" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TOperator" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TCall" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TReturn" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TEntry" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TInclude" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TBind" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TC" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TName" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))) :+: (((C1 (MetaCons "TAllocatable" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TAsynchronous" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TDimension" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TExternal" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TIntent" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TIntrinsic" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TNonIntrinsic" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TOptional" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TParameter" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TPointer" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))))))) :+: ((((((C1 (MetaCons "TPrivate" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TPublic" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TProtected" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TSave" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TTarget" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TValue" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TVolatile" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TIn" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TOut" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TInOut" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))) :+: (((C1 (MetaCons "TData" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TNamelist" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TImplicit" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TEquivalence" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TCommon" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TFormat" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TBlob" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan) :*: S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 String))) :+: (C1 (MetaCons "TAllocate" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TStat" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TErrMsg" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))))) :+: ((((C1 (MetaCons "TSource" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TDeallocate" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TNullify" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TNone" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TGoto" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TAssign" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TTo" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TContinue" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TStop" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TPause" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))) :+: (((C1 (MetaCons "TDo" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TEndDo" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TWhile" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TIf" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TThen" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TElse" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TElsif" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TEndIf" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TCase" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TSelectCase" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))))) :+: (((((C1 (MetaCons "TEndSelect" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TDefault" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TCycle" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TExit" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TForall" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TEndForall" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TWhere" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TElsewhere" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TEndWhere" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TType" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))) :+: (((C1 (MetaCons "TEndType" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TSequence" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TClass" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TEnum" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TEnumerator" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TEndEnum" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TKind" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TLen" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TInteger" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TReal" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))))) :+: ((((C1 (MetaCons "TDoublePrecision" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TLogical" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TCharacter" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TComplex" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TOpen" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TClose" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TRead" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TWrite" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TPrint" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TBackspace" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))))) :+: (((C1 (MetaCons "TRewind" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TInquire" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))) :+: (C1 (MetaCons "TEndfile" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TEnd" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TNewline" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))) :+: ((C1 (MetaCons "TEOF" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TFlush" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TUnit" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)))) :+: (C1 (MetaCons "TIOStat" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: (C1 (MetaCons "TIOMsg" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan)) :+: C1 (MetaCons "TErr" PrefixI False) (S1 (MetaSel (Nothing :: Maybe Symbol) NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 SrcSpan))))))))))

class SpecifiesType a where Source #

Methods

isTypeSpec :: a -> Bool Source #

Instances
SpecifiesType Token Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

isTypeSpec :: Token -> Bool Source #

SpecifiesType [Token] Source # 
Instance details

Defined in Language.Fortran.Lexer.FreeForm

Methods

isTypeSpec :: [Token] -> Bool Source #

initParseState :: ByteString -> FortranVersion -> String -> ParseState AlexInput Source #

collectFreeTokens :: FortranVersion -> ByteString -> [Token] Source #

scC :: Int Source #

scI :: Int Source #

scN :: Int Source #

scT :: Int Source #

alex_action_0 :: LexAction (Maybe Token) Source #

alex_action_1 :: LexAction (Maybe Token) Source #

alex_action_2 :: LexAction (Maybe Token) Source #

alex_action_3 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_5 :: LexAction (Maybe Token) Source #

alex_action_6 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_7 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_8 :: LexAction (Maybe Token) Source #

alex_action_9 :: LexAction (Maybe Token) Source #

alex_action_10 :: LexAction (Maybe Token) Source #

alex_action_11 :: LexAction (Maybe Token) Source #

alex_action_12 :: LexAction (Maybe Token) Source #

alex_action_13 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_14 :: LexAction (Maybe Token) Source #

alex_action_15 :: LexAction (Maybe Token) Source #

alex_action_16 :: LexAction (Maybe Token) Source #

alex_action_17 :: LexAction (Maybe Token) Source #

alex_action_18 :: LexAction (Maybe Token) Source #

alex_action_19 :: LexAction (Maybe Token) Source #

alex_action_20 :: LexAction (Maybe Token) Source #

alex_action_21 :: LexAction (Maybe Token) Source #

alex_action_22 :: LexAction (Maybe Token) Source #

alex_action_23 :: LexAction (Maybe Token) Source #

alex_action_24 :: LexAction (Maybe Token) Source #

alex_action_25 :: LexAction (Maybe Token) Source #

alex_action_26 :: LexAction (Maybe Token) Source #

alex_action_27 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_28 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_29 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_30 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_31 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_32 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_33 :: LexAction (Maybe Token) Source #

alex_action_34 :: LexAction (Maybe Token) Source #

alex_action_35 :: LexAction (Maybe Token) Source #

alex_action_36 :: LexAction (Maybe Token) Source #

alex_action_37 :: LexAction (Maybe Token) Source #

alex_action_38 :: LexAction (Maybe Token) Source #

alex_action_39 :: LexAction (Maybe Token) Source #

alex_action_40 :: LexAction (Maybe Token) Source #

alex_action_41 :: LexAction (Maybe Token) Source #

alex_action_42 :: LexAction (Maybe Token) Source #

alex_action_43 :: LexAction (Maybe Token) Source #

alex_action_44 :: LexAction (Maybe Token) Source #

alex_action_45 :: LexAction (Maybe Token) Source #

alex_action_46 :: LexAction (Maybe Token) Source #

alex_action_47 :: LexAction (Maybe Token) Source #

alex_action_48 :: LexAction (Maybe Token) Source #

alex_action_49 :: LexAction (Maybe Token) Source #

alex_action_50 :: LexAction (Maybe Token) Source #

alex_action_51 :: LexAction (Maybe Token) Source #

alex_action_52 :: LexAction (Maybe Token) Source #

alex_action_53 :: LexAction (Maybe Token) Source #

alex_action_54 :: LexAction (Maybe Token) Source #

alex_action_55 :: LexAction (Maybe Token) Source #

alex_action_56 :: LexAction (Maybe Token) Source #

alex_action_57 :: LexAction (Maybe Token) Source #

alex_action_58 :: LexAction (Maybe Token) Source #

alex_action_59 :: LexAction (Maybe Token) Source #

alex_action_60 :: LexAction (Maybe Token) Source #

alex_action_61 :: LexAction (Maybe Token) Source #

alex_action_62 :: LexAction (Maybe Token) Source #

alex_action_63 :: LexAction (Maybe Token) Source #

alex_action_64 :: LexAction (Maybe Token) Source #

alex_action_65 :: LexAction (Maybe Token) Source #

alex_action_66 :: LexAction (Maybe Token) Source #

alex_action_67 :: LexAction (Maybe Token) Source #

alex_action_68 :: LexAction (Maybe Token) Source #

alex_action_69 :: LexAction (Maybe Token) Source #

alex_action_70 :: LexAction (Maybe Token) Source #

alex_action_71 :: LexAction (Maybe Token) Source #

alex_action_72 :: LexAction (Maybe Token) Source #

alex_action_73 :: LexAction (Maybe Token) Source #

alex_action_74 :: LexAction (Maybe Token) Source #

alex_action_75 :: LexAction (Maybe Token) Source #

alex_action_76 :: LexAction (Maybe Token) Source #

alex_action_77 :: LexAction (Maybe Token) Source #

alex_action_78 :: LexAction (Maybe Token) Source #

alex_action_79 :: LexAction (Maybe Token) Source #

alex_action_80 :: LexAction (Maybe Token) Source #

alex_action_81 :: LexAction (Maybe Token) Source #

alex_action_82 :: LexAction (Maybe Token) Source #

alex_action_83 :: LexAction (Maybe Token) Source #

alex_action_84 :: LexAction (Maybe Token) Source #

alex_action_85 :: LexAction (Maybe Token) Source #

alex_action_86 :: LexAction (Maybe Token) Source #

alex_action_87 :: LexAction (Maybe Token) Source #

alex_action_88 :: LexAction (Maybe Token) Source #

alex_action_89 :: LexAction (Maybe Token) Source #

alex_action_90 :: LexAction (Maybe Token) Source #

alex_action_91 :: LexAction (Maybe Token) Source #

alex_action_92 :: LexAction (Maybe Token) Source #

alex_action_93 :: LexAction (Maybe Token) Source #

alex_action_94 :: LexAction (Maybe Token) Source #

alex_action_95 :: LexAction (Maybe Token) Source #

alex_action_96 :: LexAction (Maybe Token) Source #

alex_action_97 :: LexAction (Maybe Token) Source #

alex_action_98 :: LexAction (Maybe Token) Source #

alex_action_99 :: LexAction (Maybe Token) Source #

alex_action_100 :: LexAction (Maybe Token) Source #

alex_action_101 :: LexAction (Maybe Token) Source #

alex_action_102 :: LexAction (Maybe Token) Source #

alex_action_103 :: LexAction (Maybe Token) Source #

alex_action_104 :: LexAction (Maybe Token) Source #

alex_action_105 :: LexAction (Maybe Token) Source #

alex_action_106 :: LexAction (Maybe Token) Source #

alex_action_107 :: LexAction (Maybe Token) Source #

alex_action_108 :: LexAction (Maybe Token) Source #

alex_action_109 :: LexAction (Maybe Token) Source #

alex_action_110 :: LexAction (Maybe Token) Source #

alex_action_111 :: LexAction (Maybe Token) Source #

alex_action_112 :: LexAction (Maybe Token) Source #

alex_action_113 :: LexAction (Maybe Token) Source #

alex_action_114 :: LexAction (Maybe Token) Source #

alex_action_115 :: LexAction (Maybe Token) Source #

alex_action_116 :: LexAction (Maybe Token) Source #

alex_action_117 :: LexAction (Maybe Token) Source #

alex_action_118 :: LexAction (Maybe Token) Source #

alex_action_119 :: LexAction (Maybe Token) Source #

alex_action_120 :: LexAction (Maybe Token) Source #

alex_action_121 :: LexAction (Maybe Token) Source #

alex_action_122 :: LexAction (Maybe Token) Source #

alex_action_123 :: LexAction (Maybe Token) Source #

alex_action_124 :: LexAction (Maybe Token) Source #

alex_action_125 :: LexAction (Maybe Token) Source #

alex_action_126 :: LexAction (Maybe Token) Source #

alex_action_127 :: LexAction (Maybe Token) Source #

alex_action_128 :: LexAction (Maybe Token) Source #

alex_action_129 :: LexAction (Maybe Token) Source #

alex_action_130 :: LexAction (Maybe Token) Source #

alex_action_131 :: LexAction (Maybe Token) Source #

alex_action_132 :: LexAction (Maybe Token) Source #

alex_action_133 :: LexAction (Maybe Token) Source #

alex_action_134 :: LexAction (Maybe Token) Source #

alex_action_135 :: LexAction (Maybe Token) Source #

alex_action_136 :: LexAction (Maybe Token) Source #

alex_action_137 :: LexAction (Maybe Token) Source #

alex_action_138 :: LexAction (Maybe Token) Source #

alex_action_139 :: LexAction (Maybe Token) Source #

alex_action_140 :: LexAction (Maybe Token) Source #

alex_action_141 :: LexAction (Maybe Token) Source #

alex_action_142 :: LexAction (Maybe Token) Source #

alex_action_143 :: LexAction (Maybe Token) Source #

alex_action_144 :: LexAction (Maybe Token) Source #

alex_action_145 :: LexAction (Maybe Token) Source #

alex_action_146 :: LexAction (Maybe Token) Source #

alex_action_147 :: LexAction (Maybe Token) Source #

alex_action_148 :: LexAction (Maybe Token) Source #

alex_action_149 :: LexAction (Maybe Token) Source #

alex_action_150 :: LexAction (Maybe Token) Source #

alex_action_151 :: LexAction (Maybe Token) Source #

alex_action_152 :: LexAction (Maybe Token) Source #

alex_action_153 :: LexAction (Maybe Token) Source #

alex_action_154 :: LexAction (Maybe Token) Source #

alex_action_155 :: LexAction (Maybe Token) Source #

alex_action_156 :: LexAction (Maybe Token) Source #

alex_action_157 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_158 :: LexAction (Maybe Token) Source #

alex_action_159 :: LexAction (Maybe Token) Source #

alex_action_160 :: LexAction (Maybe Token) Source #

alex_action_161 :: LexAction (Maybe Token) Source #

alex_action_162 :: LexAction (Maybe Token) Source #

alex_action_163 :: LexAction (Maybe Token) Source #

alex_action_164 :: LexAction (Maybe Token) Source #

alex_action_165 :: LexAction (Maybe Token) Source #

alex_action_166 :: LexAction (Maybe Token) Source #

alex_action_167 :: LexAction (Maybe Token) Source #

alex_action_168 :: LexAction (Maybe Token) Source #

alex_action_169 :: LexAction (Maybe Token) Source #

alex_action_170 :: LexAction (Maybe Token) Source #

alex_action_171 :: LexAction (Maybe Token) Source #

alex_action_172 :: LexAction (Maybe Token) Source #

alex_action_173 :: LexAction (Maybe Token) Source #

alex_action_174 :: LexAction (Maybe Token) Source #

alex_action_175 :: LexAction (Maybe Token) Source #

alex_action_176 :: LexAction (Maybe Token) Source #

alex_action_177 :: LexAction (Maybe Token) Source #

alex_action_178 :: Parse AlexInput Token (Maybe Token) Source #

alex_action_179 :: LexAction (Maybe Token) Source #

alex_action_180 :: LexAction (Maybe Token) Source #

alex_action_181 :: LexAction (Maybe Token) Source #

alex_action_182 :: LexAction (Maybe Token) Source #

alex_action_183 :: LexAction (Maybe Token) Source #

alex_action_184 :: LexAction (Maybe Token) Source #

alex_action_185 :: LexAction (Maybe Token) Source #

alex_action_186 :: LexAction (Maybe Token) Source #

alex_action_187 :: LexAction (Maybe Token) Source #

alex_action_188 :: LexAction (Maybe Token) Source #

alex_action_189 :: LexAction (Maybe Token) Source #

alex_action_190 :: LexAction (Maybe Token) Source #

alex_action_191 :: LexAction (Maybe Token) Source #

alex_action_192 :: LexAction (Maybe Token) Source #

alex_action_193 :: LexAction (Maybe Token) Source #

alex_action_194 :: LexAction (Maybe Token) Source #

alex_action_195 :: LexAction (Maybe Token) Source #

alex_action_196 :: LexAction (Maybe Token) Source #

alex_action_197 :: LexAction (Maybe Token) Source #

alex_action_198 :: LexAction (Maybe Token) Source #

alex_action_199 :: LexAction (Maybe Token) Source #

alex_action_200 :: LexAction (Maybe Token) Source #

alex_action_201 :: LexAction (Maybe Token) Source #

alex_action_202 :: LexAction (Maybe Token) Source #

alex_action_203 :: LexAction (Maybe Token) Source #

data AlexAddr Source #

Constructors

AlexA# Addr# 

alexIndexInt16OffAddr :: AlexAddr -> Int# -> Int# Source #