@@ -811,7 +811,7 @@ static void CheckExplicitDataArg(const characteristics::DummyDataObject &dummy,
811
811
// General implementation of F'23 15.5.2.5 note 5
812
812
// Adds a less specific error message for any copy-out that could overwrite
813
813
// a unread value in the actual argument.
814
- // Occurences of volatileOrAsyncNeedsTempDiagnosticIssued = true indicate a
814
+ // Occurences of ` volatileOrAsyncNeedsTempDiagnosticIssued = true` indicate a
815
815
// more specific error message has already been issued. We might be able to
816
816
// clean this up by switching the coding style of MayNeedCopy to be more like
817
817
// WhyNotDefinable.
@@ -828,8 +828,8 @@ static void CheckExplicitDataArg(const characteristics::DummyDataObject &dummy,
828
828
// If there are any cases where we don't need a copy and some other compiler
829
829
// does, we issue a portability warning here.
830
830
if (context.ShouldWarn (common::UsageWarning::Portability)) {
831
- // Nag, GFortran, and NVFortran all error on this case, even though it is
832
- // ok, prossibly as an over-restriction of F'23 C1548.
831
+ // 3 other compilers error on this case even though it is ok.
832
+ // Possibly as an over-restriction of F'23 C1548.
833
833
if (!copyOutNeeded && !volatileOrAsyncNeedsTempDiagnosticIssued &&
834
834
(!dummyIsValue && (dummyIsAsynchronous || dummyIsVolatile)) &&
835
835
!(actualIsAsynchronous || actualIsVolatile) &&
@@ -842,7 +842,7 @@ static void CheckExplicitDataArg(const characteristics::DummyDataObject &dummy,
842
842
actual.AsFortran (), dummyName,
843
843
dummyIsAsynchronous ? " ASYNCHRONOUS" : " VOLATILE" );
844
844
}
845
- // Probably an over-restriction of F'23 15.5.2.5 note 5
845
+ // Possibly an over-restriction of F'23 15.5.2.5 note 5
846
846
if (copyOutNeeded && !volatileOrAsyncNeedsTempDiagnosticIssued) {
847
847
if ((dummyIsVolatile && !actualIsVolatile && !actualIsAsynchronous) ||
848
848
(dummyIsAsynchronous && !actualIsVolatile && !actualIsAsynchronous)) {
0 commit comments