std::optional<parser::MessageFixedText> msg;
if (symbol.test(Symbol::Flag::CrayPointee) && !isExplicit &&
!canBeAssumedSize) {
- msg = "Cray pointee '%s' must have must have explicit shape or"
+ msg = "Cray pointee '%s' must have explicit shape or"
" assumed size"_err_en_US;
} else if (IsAllocatableOrPointer(symbol) && !canBeDeferred &&
!isAssumedRank) {
end
subroutine p7
- !ERROR: Cray pointee 'b' must have must have explicit shape or assumed size
+ !ERROR: Cray pointee 'b' must have explicit shape or assumed size
pointer(a, b(:))
contains
subroutine s(x, y)
real :: x(*) ! assumed size
- !ERROR: Cray pointee 'y' must have must have explicit shape or assumed size
+ !ERROR: Cray pointee 'y' must have explicit shape or assumed size
real :: y(:) ! assumed shape
pointer(w, y)
end