FOR(REQUEST_HANDLE request) X IN RDB$ROLES
				WITH X.RDB$ROLE_NAME EQ login_name
			{
				ERR_post(Arg::Gds(isc_login_same_as_role_name) << Arg::Str(login_name));
			}
			END_FOR

			FOR (REQUEST_HANDLE request) FIRST 1 RR IN RDB$ROLES
				CROSS UU IN RDB$USER_PRIVILEGES
				WITH RR.RDB$ROLE_NAME        EQ sql_role
				AND RR.RDB$ROLE_NAME         EQ UU.RDB$RELATION_NAME
				AND UU.RDB$OBJECT_TYPE       EQ obj_sql_role
				AND (UU.RDB$USER             EQ login_name
					 OR UU.RDB$USER          EQ "PUBLIC")
				AND UU.RDB$USER_TYPE         EQ obj_user
				AND UU.RDB$PRIVILEGE         EQ "M"
			{
				if (!UU.RDB$USER.NULL)
					found = true;
			}
			END_FOR