// { dg-do assemble }
int i;
int j;
struct S {
int operator()(int)
{
i = 1;
return i;
}
typedef int I;
void f() {
for (S I; false; )
;
int k = I(3);
}
};
// { dg-do assemble }
// GROUPS passed initialization
int FALSE = 0;
class X {
public:
static int FALSE;
};
// The compiler should NOT complain about redeclaration of the global
// `FALSE' with th
LOGICAL :: L = .FALSE.
SELECT CASE (L)
CASE (.TRUE.)
CALL abort
CASE (.FALSE.)
CONTINUE
CASE DEFAULT
CALL abort
END SELECT
SELECT CASE (L)
CASE (.TRUE., .FALSE.)
! Program to test the ANY and ALL intrinsics
program anyall
implicit none
logical, dimension(3, 3) :: a
logical, dimension(3) :: b
character(len=10) line
a = .false.
if (any(a)) cal
