1*3338ef93Speter klausler!RUN: %flang -E -Xflang -fno-reformat %s 2>&1 | FileCheck %s 201def7f7Speter klausler!CHECK: if(.not.(.true.)) error stop "assert(" // ".TRUE." // ") failed " // "at "" 301def7f7Speter klausler!CHECK-SAME: assert.F90"": " // "7" 401def7f7Speter klausler#define STR(x) #x 501def7f7Speter klausler#define POSITION(f,ln) "at "f": " // STR(ln) 601def7f7Speter klausler#define assert(x) if(.not.(x)) error stop "assert(" // #x // ") failed " // POSITION(__FILE__,__LINE__) 701def7f7Speter klauslerassert(.TRUE.) 801def7f7Speter klauslerend 9